mönatlich 


} BSEOMMODORE & SCHNEIDER 


VC-64, VC-20, C-16/116, CPC-464 2 = 


8 6 Unabhängiges Magazin für Anwender von Commodore- und Schneider-Computern 3,80 sFr 


Klick 


Programmierhilfe | 
für C-64 


GEOS: 


Wir suchen die 
heißesten 
Geos-Tips! 









ENDLICH: AUCH FÜR C-16/116, plus 4 


luxus-Vser port 


Den gravierendsten Mangel der kleinen Commodore-Computer 
können Sie jetzt im Selbstbau beheben! 
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| report 
Hardcopymodul für den C-64 im Vergleichstest 


Als wir hörten, daß es Module gibt, die 
Bildschirmgrafiken aus allen G-64-Pro- 
grammen holen, um sie auf Diskette abzu- 
speichern und auszudrucken, war uns So- 
fort klar: darüber muß ein Test gemacht 
werden. Als das erste Modul ankam, 
stürzten wir uns voller Erwartung auf un- 
sere Geräte und wollten Ergebnisse se- 
hen. Die Enttäuschung war groß, als wir 
bemerkten, daß Super-Pic von Rushware 
ausschließlich mit dem Okimate 20 von 
Okidata zusammenarbeitet. Eigentlich 


auch nicht schlecht, dachten wir, denn: 


farbige Hardcopies (und das kann der Oki- 
mate 20) sind doch besonders reizvoll. Al- 
so ran ans Telefon und einen Okimate 20 
bestellt. Eine ausgesprochen freundliche 
Pressereferentin von Okidata sagte auch 
sofort zu, und nur wenige Tage später war 
der Drucker da. Inzwischen war auch 
schon das zweite Modul angekommen, 
diesmal das Picture-Printer Modul von 
Elektro-Schmitz. Auf dem Epson FX-80 
hatten wir mit diesem dann auch schon 
wunderschöne Schwarz-Weiß-Hardcopies 
erstellt. Mit dem frisch angekommenen 
Okimate 20 jedoch versagten beide Mo- 
dule ihre Dienste. Woran lag es? Während 
Superpic /von Rushware laut Betriebs- 
anweisung sowohl den seriellen als auch 
den parallelen Druckerausgang unter- 
stützt, wies der Picture-Printer für den Oki- 
mate 20 keine Centronicsschnittstelle auf. 
Da unser Okimate 20 jedoch .mit einem 
Centronicsinterface ausgestattet war, lief 
mit dem Picture-Printer nichts. Aber, wel- 
che Enttäuschung, auch mit Superpic tat 
sich nichts. Große Ratlosigkeit. Dann kam 
die Erleuchtung: die Busy- und die Ak- 
knowledgeleitungen unseres Userport- 
centronicskabels müssen vertauscht wer- 
den. Da Picture-Printer aber sowieso keine 
Centronicsschnittstelle aufweist (so dach- 
ten wir voreilig), verzichteten wir kurzer- 
hand auf umständliche Lötarbeiten und 
bestellten bei der freundlichen Presserefe- 
rentin das serielle Commodoreinterface 
für den Okimate 20. Nach 2 Tagen war es 
da und nun konnte es endlich losgehen. 








Wirklich? Picture-Printer eingeklemmt, 
Programm geladen, Modulreset, Drucker- 
menue eingestellt und tatsächlich: der 
Okimate 20 gab seine ersten merkwürdi- 
gen Suchgeräusche von sich (er sucht 
den nächstliegenden Gelbabschnitt des 
Farbbandes) und nach etwa 20 Minuten 
stand unsere erste farbige Hardcopy, al- 
lerdings mit einem kleinen Fehler: die Pi- 
xel waren leicht verzerrt, Ursache: die Oki- 


mate 20-Routine ist für Interface (Görlitz ı 


u.ä.) und Okimate 20 mit Centronics ge- 
schrieben. Also paralleles Interface wie- 
der eingebaut, Görlitz dazwischen und ...? 
Endlich klappt es! Nun sollte das gleiche 


mit dem Rushware-Modul ausprobiert | 


werden. Wer geglaubt hatte, daß unsere 
Testerpechsträne endlich ein Ende gefun- 
den hatten, sah sich getäuscht. Nicht ein 
Bild konnten wir mit Superpic aus dem 
Speicher des PC 128 locken. Des Rätsels 
Lösung lag in einer gewissen Imkompabi- 
lität zwischen G-64 und PC 128. Auch die 
im Rushware-Handbuch aufgeführten 
POKE- und SYS-Befehle konnten keine 
Verträglichkeit zwischen PG 128 und dem 
Superpic herstellen. Da half nur eines: der 
gute alte C-64 mußte her. Und siehe da, es 
lief. Superpic lieferte exzellente Farbhard- 
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copies in allen Größen - von Anstecker- 
größe bis zum vollen DIN A 4-Blatt. Im fol- 
genden wollen wir versuchen die beiden 
Module kurz zu bewerten. 


Superpic: 


Positiv: Wahl zwischen 5 verschiedenen 
Ausdruckgrößen, auf Wunsch 14 ver- 
schiedene Farben durch Rasterung, liest 
auch Sprites aus, Interrupts können be- 
rücksichtigt werden, Druck im 24-Nadel- 


! modus des Okimate 20. 
| Negativ: Arbeitet nur mit Okimate 20 zu- 


sammen, nicht kompatible mit dem 64er- 
Modus des PC 128, ein abgespeichertes 
Bild belegt 130 Blöcke auf Diskette, Bild 
kann nicht mit anderen Malprogrammen 
(z.B. Koalapainter) weiterverarbeitet wer- 
den, nach Drucken und Speichern Pro- 
grammabbruch. 


Picture-Printer: 


Pasitiv: Arbeitet mit verschiedenen Druk- 
kern zusammen (dann natürlich schwarz- 
weiß),- sehr gute Benutzerführung, mit 
dem Modul können auch abgespeicherte 
Bilder eingeladen werden (auch einige 
Koalabilder), beim Abspeichern wird au- 
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tomatisch Hires- oder Multicolormodus 
unterschieden (Multicolor wird im Koala- 
format und Hires im Doodleformat abge- 
speichert), Hardcopy kann beliebig oft 
wiederholt werden, 15 verschiedene Far- 
ben durch Rasterung. 

Negativ: Keine Spritedarstellung, Interrupts 
können nicht korrigiert werden, nur eine 
Druckgröße, Okimateroutine wurde nur 
für die Gentronicsversion mit Görlitz- oder 
Wiesemanninterface ausgelegt. 


Abschließend istzu sagen, daß wir unsam 
Ende für beide Module entschieden ha- 
ben. Die Vorteile beider hätten wir uns in 
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einem Modul vereinigt gewünscht. Nun 
haben wir als Verlag sehr spezielle Anfor- 
derungen (so möchten wir natürlich sol- 
che farbigen Hardcopies anstelle von Bild- 
schirmfotos verwenden). Für den norma- 
len Anwender ist sicherlich das Schmitz- 
Modul das interessantere, da es flexibler 
eingesetzt werden kann, verschiedene 
Drucker unterstützt und die Grafikfiles in 
Formaten ablegt, die von anderen weitver- 
breiteten Malprogrammen weiterverar- 
beitet werden können. 

Das uns vorliegende Superpic war übri- 
gens nur eine Vorversion. Die Probleme, 
die mit dem PC 128 auftauchten, dürften 
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in der endgültigen Version behoben sein. 
Ebenso ist für picture Printer eine Druk- 
kerroutine in Arbeit, die den Okimate 20 
auch in der Version mit dem Original- 
Commodoreinterface von Okidata an- 
spricht, 


Adressen: 

Picture-Printer 

Elektro Schmitz GmbH, Bahnhofstr. 39, 
5830 Schwelm, Tel.: 02336/2017 


Superpic: 
Rushware 
über den Einzelhandel 





3. Wuppertaler Computer Flohmarkt 


Am 1. Juni 1986 fand in der Wuppertaler 
Stadthalle der dritte Computer-Flohmarkt 
statt. Dieser wurde, wie in den vergange- 
nen Jahren, von dem Bergener-Compu- 
ter-Club organisiert und durchgeführt. 
Nachdem der Besucher 3,- DM Eintritt be- 
zahlt hatte, war dieser sicherlich ent- 
täuscht. Denn was er vorfand, war nicht 
etwa ein Flohmarkt, sondern Stände von 
Firmen, die zum größten Teil nur neue Ge- 
räte bzw. Software anboten. Wer also mit 
der Absicht, billige und gebrauchte Com- 
puter mit Zubehör zu echten Flohmarkts- 
preisen zu kaufen, nach Wuppertal ge- 
kommen war, der konnte diesen Gedan- 
ken schnell vergessen. Im Gegenteil - die 
Geräte wurden zu stolzen Preisen verkauft 
(so kostete ein C-116 ganze 149,- DM).. 
Bei den fast 60 Anbietern fand man vor al- 
lem Zubehör für die Atari-ST-, Commodo- 
re 64- und Schneider-Rechner. 

Neben den Dutzenden Ataris gab es auch 
einen (!) Amiga, aber der fiel schon gar 
nicht mehr auf. Für die kleineren Außen- 
seitercomputer wie z.B. MSX, ZX-81, u.a. 
war so gut wir nichts zu bekommen. 
Lediglich Bücher und einige (ältere) Pro- 
gramme konnten günstig erstanden wer- 
den. Aber das war dann auch schon alles. 
Aufgelockert wurde die Hektik in der Halle 
durch eine Informationsschau des Berge- 
ner-Computer-Clubs und des TI 99er 





Workshops Rheinland. Dabei zeigte der 
Bergener Club die Leistungsfähigkeit von 
Sound-Samplern. Hier konnte der Besu- 
cher in ein Mikrofon sprechen. Einen kur- 
zen Augenblick später wurde dann über 
ein Keyboard das gesprochene Wort digi- 
talisiert wiedergegeben. An einem ande- 
ren Stand wurde die Steuerung von Robo- 
tern anhand von Fischertechnik-Modellen 
eindrucksvoll vorgeführt. 

Auf der Bühne der Stadthalle wurden an 
mehreren Atari-ST Geräten die Grafik-und 
Soundfähigkeiten dieses Computers 
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demonstriert. Allerdings fehlte hier gänz- 
lich der Kontakt zu den Besuchern. 

Der TI 99er Workshop führte „aufgemotz- 
te“ TI’s unter dem Motto „TI-99/A4 in Per- 
fektion“ vor. Interessierten Besuchern 
wurde die Technik und Arbeitsweise der 
Tl's erklärt. 

Unter den Clubständen habe ich aller- 
dings den in Wupptertal ansässigen Sinc- 
lair-Spectrum-User-Club vermißt. Somit 
gab es auch für die Sinclair-User nichts 
besonderes zu sehen. 
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Neu: DB25-Steckergehäuse - Ideal auch für dünne Kabel 


Die DB25-Steckernorm ist wohl die uni- | branche vorstellen konnte. Entsprechend 


versellste, die man sich in der Gomputer- | günstig waren die Bauteile auch zu bezie- 





hen. Nur bei den Gehäusen haperte es ein 
wenig. Sie waren .zu teuer und nur auf 
spezielle Anwendungen mit starken Ka- 
beln eingerichtet. Von Wiesemann gibt es 
nun ein Gehäuse, das Abhilfe schafft. Jetzt 
können endlich Selbstbaukabel z.B. für 
Centronicsdrucker oder Modem mit ei- 
nem passenden Gehäuse versehen wer- 
den. 

Wiesemann " 


.| Winchenhachstr. 3-5 


5600 Wuppertal 2 
Preis: 2,39 DM, ab 10 Stück Rabatt 





Ordnung in den Regalen 


Restlos begeistert waren wir von einem 


schlichten Ringbuchordner aus der Disky- . 


Produktionspalette. In diesem Ordner kön- 
nen bis zu 40 St. 5,25 oder 3,5 Zoll Disket- 
ten archiviert werden. Besonders sinnvoll 
fanden wir diese Form der Aufbewahrung 
bei hochwertigen Programmen, die nicht 
in einer Box zwischen Schrott und leeren 
Disketten untergehen sollen. Sehr schön 
kann man z.B. bei Text- oder Malpro- 
grammendie Systemdisketten und die 
Arbeitsdisketten nebeneinander einord- 
nen und dank einer besonderen Konstruk- 
tion senkrecht am Arbeitsplatz aufstellen. 
Alle Disketten, die zu einem Arbeitsbe- 
reich gehören, lassen sich so ganz toll zu- 
sammenfassen und sind mit einem Griff 
einsatzbereit. 

Die Möglichkeit, platzsparend zu archivie- 
ren, fanden wir dagegen weniger interes- 
sant. Aber selbst, wenn ein Arbeitssystem 





nur 4 Disketten enthält, ist es in diesen 
Ordnern schon hervorragend aufgehoben. 
Preis ca. 13,-- DM. 


Weiterhin gibt es von D & B noch neue 


Hardboxen, die sich besonders gut zum 
Versand von 4 Disketten eignen. Sowohl 


die 3,5°-, wie auch die 5,25"-Version ko- 
stet zwischen 6,-- und 7,-- DM. 
Döbbelin & Boeder 

Wickere Straße 50 

6093 Flörsheim am Main 
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CPC-MOUSE PACK im Test 


Nachdem vor einiger Zeit APPLE’s 
Mackintosh mit Maus-Steuerung auf den 
Markt kam, haben auch andere Hersteller 
ihre Computer mit diesen Eingabegeräten 
ausgerüstet, Auch für den Schneider CPC 
gibt es mittlerweile einiges auf diesem Ge- 
biet. Jüngstes Mitglied in der Schneider- 
Mausfamilie ist die Maus von REIS-WARE, 
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die mit einem umfangreichen Software- 
paket geliefert wird. In diesem Paket ist 
neben zahlreichen Demos und Befehlser- 
weiterungen auch ein Malprogramm mit 
dem klangvollen Namen CENTAUR ent- 
halten. Die erste Überraschung gab es 
beim Laden dieses Programmes: eine 
Computerstimme sagt mehrmals in im- 
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mer höherer Geschwindigkeit und klar 
verständlich den Namen des Programms- 
„CENTAUR“,. Das eigentliche Malpro- 
gramm bietet nichts Neues, ist aber sehr 
leistungsfähig. Das einzige was stört, ist 
die sehr umständliche Handhabung der 
Windows, die vor Gebrauch erst an die 


richtige Stelle und auf die richtige Größe 





programme 


ATS gebracht werden müssen. 

Beim Testen der Demos und der Befehls- 
erweiterungen traten dann allerdings des 
öfteren Fehlermeldungen auf,. die mei- 
stens im Basicprogramm lagen und des- 
halb leicht zu korrigieren waren. Die Hard- 
ware der Maus selbst macht einen sehr 
stabilen Eindruck. 


MM ai, 


Fazit: Das MOUSE PACK von REIS-WARE 
ist den Fans von Maussteuerungen sehr 
zu empfehlen, wer allerdings auf ähnliche 
Leistungen wie die von ATARI’s GEM oder 
COMMODORE's GEOS hofft, der dürfte ein 
wenig enttäuscht sein. (0.5.) 








Großer „BAHNHOF" für den VE 20 


Wo ist hier der 


Sean und Maggie McCaroll sind begei- gensie Bahnhof 


sterte VG-20-Programmierer. „Bahnhof“ 
ist daher auch nicht ihr erstes Programm, 
daß uns total überzeugte. Effektive Pro- 
grammierung, tolle und vor allem friedli- 
che Spielidee sind die Besonderheiten 
dieses Programms. 

Bei der Spielanleitung sind die McCGarolls 
besondere Wege gegangen. Alle Erklä- 
rungen sind in den REM-Zeilen am An- 
fang des Programms versteckt. ae ii 

Die deutsche Übersetzung des Textes | kleinen Fehler ander „BAHNHOF“ ist 
stammt übrigens von der erst 9-jährigen | wirklich ein fantastisches Strategiespiel, 
Tochter Claire, falls sich jemand über die | dasfast vergessen macht, daß man mitei- 


- 100 REM:SIE KONNEN AUCH DIE WEICHEN STEL 
Teil 1 LEN ABER BLOS GERADEAUS. <121> 
110 REM:DAS SIE DASS MACHEN KONNEN, MUSS 





nem VG 20 arbeitet. Viel Effekti in ein mög- 
lichst kurzes Programm zu packen: dasist 
die Kunst!! 








VC20 LISTING + CHECKSUMMEN (VE V1.0) EN SIE VOR DEN WEICHEN ANHALTEN <250> 
120 REM:UND DEN FEUERKNOPF DRUCKEN. <172> 

10 REM:WICHTIG: NACHDEM DAS SPIEL GELADE 130 REM:KOMMEN SIE AN EINEN BAHNHOF, DRU 
N WURDE, MUSS DIE 'STOP’- TASTE <72> CKEN SIE DEN KNOPF UND SIE BEKOMMEN 1000 
20 REM:AN DER DATASETTE GEDRUCKT WERDEN! PUNKTE. <19> 
ni, <236> 140 REM=:BESUCHEN SIE ALLE SIEBEN BEVOR D 
30 REM: BAHNHOF ! <87> IE ZEIT AUSLAUFT UND SIE KRIEGEN BONUS, <141> 
40 REMıBY SEAN & MAGGIE MC CARROLL <144> 150 REM:UND SIE KOMMEN AN LEVEL 2. <171> 
50 REM: TRANSLATION BY ELAIRE (9. <151> 160 REM:LEVEL 2. <41> 
60 REM=:MANLICHSTR 16, 8700 AUGSBURG. 082 170 REM:SIE MUSSEN DIE STATIONEN DIE OBE 
1/423382 “33> N AUF DEN BILDSCHRIM BESUCHEN, <39> 
70 REM:SIE SIND DER ZUGFAHER UND- SIE MUS 180 REM:UND NOCH EINMAL DEN KNOPF DRUCKE 
SEN ALLE SIEBEN STATIONEN BESUCHEN. <170> N UND SIE SEHEN DEN NACHSTEN BAHNHOF <a95> 
80 REM:LEIDER LAUFT EIN BURCHGANGZUG UM 190 REM:DEN SIE BESUCHEN MUSSEN. WENN SI 
DIE GEGEND. <1865> E 10 STATIONEN BESUCHT HABEN «323 
90 REM:SIE MUSSEN AUS DEM WEG VOM DEN ZU 200 REM:DANN MUSSEN SIE DEN GEHEIMBAHNHO 
G GEHEN <Aa3> F FINDEN. <&ö> 
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210 REM:FINDEN SIE DEN BAHNHOF BEVOR DIE 
ZEIT AUSGELAUFEN IST, HABEN SIE GEWONNE 

N. 

220 FORI=7148107679: POKEI ‚PEEK(I+25400) : 

NEXT 

230 POKES2, 28: POKES&,28:CLR 

240 FORI=7168107303: READA:FOKEI „A: NEXT 

250 FORI=7304T07304+60: READAz POKEI „A: NEX 

T 

260 FORI=7450107505: READA: POKEI „ArNEXT 

270 FORI=7345107380: READA: POKEI „A: NEXT 

280 FORI=7506T075193 READA: POKEI „ArNEXT 

290 PRINT" {CLEAR}" = POKE36869 „255: 0=30720 
:POKES4878, 15 

300 FORI=0T0215TEP3:FORI=7746T07856STEP2 

2: POKEJ+1 ,S:NEXT:NEXT:B=64 

310 FORI=0TO15STEP3: FORI=7748T07858STEP2 

2: POKEJ+I „5: NEXT: NEXT: POKE7855,52 

320 B=B+1:PRINT"{HOME HHITE}"SFORI=OTOIZ 
t READA: IFA=5S6THENB=B+1 

330 IFA=OTHEN 320 

340 IFA=45THENB=70 

350 PRINTSPC(A)CHRS(B) JANEXT:X=36876 

360 Y=122: T(1)=32:M=7745: FORI=0T01323 T(V 
)=PEEK (M+1) : V=V+1: IFV=2THENV=O 

370 Mi=M: M=M+1:POKEM, 9: POKEM+C „Os POKEMI , 

TV) EPOKEMI+C,7:Y=Y+1 

380 POKEX,V:FORP=1TO103NEXTSNEXTEPOKEX,O 
:PRINT"{BLUE}Y" 

390 PRINT"{SPACE RVSON DOWN>PRESSTSPACE} 

PLAY{SPACEIONTSPALEITAPE"TWAIT37151,126, 
126 

400 PRINT"(UP RYSON SPACE2>OK. SPACEILOA 

DINGTSPACEIPT, (SPACEIZIUPF HHITEY"TPOKEAS 
1,131: POKE198,1 

410 END 

420 DATAO,0,68,255,68,255,68,0 

430 DATAO,0,0,0,3,4,9,18 

440 DATAO,0,0,0,224,16,200,36 

450 DATA20,20,20,18,9,4,3,0 

460 DATA20,20,20,36,200,16,224,0 

470 DATA20,62,20,20,20,52,20,20 

480 DATAO,0,0,68,255,68,255,68 

490 DATA20,42,20,20,20,62,20,20 

500 DATA0,0,0,48,255,68,255,68- 

510 DATA248,252,226,255,255,36,255,36 

520 DATA31,63,71,255,255,36,255,36 

530 DATA24,60,126,102,102,126,126,126 

540 DATA125,126,126,102,102,126,60,24 

550 DATAO,0,0,0,0,42,42,42 

560 DATAO,32,168,168,152,152,168,168 

570 DATA42,37,37,42,63,63,255,255 

580 DATA148,152,152,152,252,232, 255,255 

590 DATA169,127,141,34,145,173,32,145 

600 DATA201,119,208,5,169,1,133,251 

610 DATA96,173,17,145,201,110,240,17 

620 DATA201,94,240,18,201,122,240,19 

630 DATA201,118,240,20,169,0,133,251 

640 DATA96,169,2,133,251,96,169,3 

650 DATA133,251,96,169,4,133,251 

650 DATA96,169,5,133,251,96 

670 DATA67,65,5,72,6,72,5,66 

&80 DATA112,65,5,72,6,72,5,66 

690 DATA112,67,5,72,6,72,5,66 

700 DATA112,67,5,72,6,72,5,68 

710 DATA74,65,6,65,118,66,5,67 

720 DATA&,67,5,68 

730 DATA112,66,5,67,6,67,5,68,118,70,6,7 

o 

740 DATA2,8,4,2,1,8,3,1,1,2,7,1,3,4,7,3 

750 DATA136,8,9,9,117,10,3,11,3,12,117,1 

3,9,15 

760 DATA44,2,5,5,2,0,46,2,5,5,50,56,0,70 
‚85,14,0,45,2,5,5,2,25,2,2,5,5, 3,433, 14: 











<IaB> 
x34> 
<105> 


<126> 
<123> 
x177> 
<217> 


<146> 
<174> 
xe6> 


<AF> 
«1293 
x104> 
x98> 


<122> 
<28> 
<106> 


<43> 


<9> 
x27> 
%236> 
x<26> 
x255> 
<159> 
<109> 
<78> 
<200> 
<378> 
<220> 
<63> 
<57> 
<129> 
<31> 
<39> 
<21> 
<28> 
<52> 
<136> 
<222> 
<174> 
<255> 
<1> 
<113> 
<234> 
<34> 
<3> 
<54> 
<79> 
<132> 
<98> 
<33> 


<215> 
<9> 


<163> 


<68> 


Programme 


VOo20 LISTING + CHECESUMMEN (VE 1.0) 


4 601079 


2 IFETHENIS 

3 POKEZ1 ,255:G=G+1: IFG>ITHENPOKEZL ,0:6=9 
:GOT042 

4 5Y57304: B=PEEK (251) : ONBGOTO20,20,6,20, 
20 

5 60103 

&. GOSUB27: IFFTHENS 

7 W=tPEEK (Z+D) AND1S) «FORI=0T08: IFW=B<I)T 
HEN? 

8 NEXT:G0T03 

9 POKEZ2,255: POKE&46 ‚Wi PRINTJ$z ıD=D+1ıBt 
I)=50: IFD=7THENIZ 

10 GOTOZ 

11 D=D+1 

12 W=ENT (RND(1)#8) +8: IFW=140RW=WITHENI2 

13 Wi=W: IFD=>1OTHENW=IS IS="PFLDOHN LEFTZ 
377" 3 IFD=11 THENF7 

14 PRINT" {HOHE RVSOW WHITE} "Z6+D*1000:PO 
KE64& „WEPRINT" CHOHEF "SPC (10) J$: Weil: POKE 
z2,255 

15 IFS=ITHENS=0:POKEZI „255: 601042 

16 S=1:5Y57304: B=PEEK (251): UNBGOTO20,20, 





‚18,20,20 


17 FORI=1T035: NEXT: GOTO15 

18 IFtPEEKtZ+0) ANDLSI=SWTHENIL 

17 BOSUB27: 6G0T015 

20 G=4: IFB< >RANDB< >YTHEN1S 

21 ONBGOY022,23,35,24,25 

22 Y=2:0=0+1:8=PEEK (0) :L=9: ONGGOT039,41, 
39,90,39,39,39,38 

23 Y=1:0=0-1:0=PEEK (0) :L=10: 0NAGOTO41 ,38 
,40,39,39,39, 38,37 

24 Y=5ı10=0-22:Q=PEEK (0) :1=11:0N060T039,3 
9,41,41,40,41,40,491 

25 Y=4: 0=0+22:0=FEEK (0) :L=12:0NOGOTO40, 4 
0,39,39,41,40,41,40 

25 GOTO9I4 

27 ONRGOTO28,29,,33,34 

28 F=PEEK (0+24} 2L=1:G60T030 

29 F=PEEK{O+H) sL=-1 

30 ONFGOT032,31,32,31,31,32 

31 F=O0:RETURN 

32 F=1:POKEO+L,8:RETURN 

33 F=PEEK (0+1) :L=-H:G0DT035 

354 F=PEEK (0+45) :ıL=H 

35 ONFGOT036,37,37,37,37,36 

356 F=0:RETURN 

37 F=1:POKEO-H_,7:RETURN 

38 R=1:60T067 

39 R=2: 601067 

40 R=4: 601057 

41 R=5: 601067 

42 ONNGDT047,52,57,62 

43 N=1:60T070 

44 N=2:G0T070 

45 N=3:601070 

46 N=4:G0T070 

47 M=M+1: T=PEEK (M) ıL=? 

48 IFT=&THEN7O 

49 IFT>BTHENF4 

50 A=9: POKEZ2, 148: ONPEEK (M+J} GOSLB75 , „76 
„78,477 

51 ONTGOTO,45, 5,46, 13,43 

52 A=1:M=M-1:T=PEEK (M) ıL=10 

53 IFT=&THEN7O 

54 IFT>BTHENI4 

55 ONPEEK (M+J) GDSUB75, 78,76, 4477 

5& ONTGOTO4S, 445,4, ,344 


Sompute mi 


<1&53> 
“217> 


<104> 


“2&6> 
2443 
<Aa> 


<151> 
<101> 


“1&0> 
<249> 
<28> 

<147> 


“232> 


<51> 
<106> 


<151> 
«957 
<44> 
<219> 
x30> 
£1> 


<108> 
x217> 
1297 


<155> 
«177> 
<228> 
“146> 
x157> 
<100> 
<7> 
<250> 
<19> 
<70> 
<2358> 
<12> 
<x245> 
<201> 
<205> 
<212> 
<216> 
<101> 
<159> 
<185> 
<167> 
x171> 
<81> 
<46> 
<a2> 


3503 
<81> 
*174> 
<5öl> 
<977 
<24&> 
<67> 








Programme 














57 M=M+H:i T=PEEK(M) sL=12 <1A0> 83 FORI=OTOSOSTEP2: A=PEEK (7450+T) :B=PEEK 
58 IFT=STHEN7ZO <52> (7451+1) 2PRINTSPC (A)CHRS (BI 5 zNEXTEPRINT" 
57 IFT>BTHENF4 <102> CHOHE BLUE}" <181> 
&0 POKEZ2,148: A=3: ONPEEK (M+J) GOSUB, 78,76 84 FORI=OTOHSTEP2: A=PEEK (7482+1) : B=PEEK ( 
77,,75 <147> 7ABS+L) sPRINTSPC (A) CHR$(B) 5 :NEXTSPRINT"T 
&1 ONTGOTO, „43,44, 44,45 <153> HOHE <2097> 
62 M=M-H: T=PEEK(M)aL=11 <152> 85 JS="MNIDOWM LEFT2IOPXUP RIGHTY":ZI=36 
63 IFT=5THEN7O <57> 877 <ilö> 
64 IFT>BTHENF4 <107> 84 0=7749: N=1s Y=2: M=B145:K=8144: J=23: Z2= 
65 A=2: DNPEEK (M+J) G0OSUB75,78,76,77 <155> 36876 <43> 
66 ONTGOTO43,44, 421,46 : <111> 87 2=30698:R=1:DIMA(3,3) ,Tt1) ,U11),B(6) <252> 
67 UtW) =QıU=UHr 1: IFLU=ZTHENU=O <53> 88 FORI=0T03: FORB=0T03: A(1,B)=PEEK (7365+ 
&8 POKEO,L:POKEO+T „2: POKEP „U (U) :POKEP+C, B+L) ıNEXT:L=L+4: NEXT <208> 
1:P=D <200> 89 FORI=75064T075198TEP23 A=PEEK I) :B=PEEK 
67 60T02 <50> {I+1) :POKE646 ,B: PRINTSPC (A) J$5 <76> 
70 T(VI=T “2> 90 B(W)=BıW=W+1:NEXT: T(1)=6: 27=1000: GOSU 
71 Vey+tı IFV=2THENV=. : 24=274+13 IFZ4=28THE B971:60T02 <119> 
NZ3=23-H: POKEZ3,323 24=0: IFZ3=7856THEN94 2177 91 D=0:PRINT"{HOHE RVSON WHITE DOWN4>T{D 
72 POKEM,L:POKENM+D,Q:POKEK,TtV) sPOKEK+4C, OMN LEFTYI{DOHN LEFTYMIDOHN LEFTYETHONE} 
1 <168> |: "19=7966: IFETHENA=8164: POKES6879,106 <124> 
73 K=Mt IFETHENPOKEZ1,0 <157> 92 FORI=7856T0ASTEPH: POKEI ‚5: POKEI+C,4:N ) 
74 60102 <55> EXT: ZZ=A+H: RETURN <123> 
75 X=INT (RND(1)*2) 2 T=A(A,K) RETURN er rl 93 GOSUBIB: Z6= ( (23-7856) /22+D)#Z7:E=1:PR 
7& X=INT {RND<(1)%*3) : T=A(A,X) s FOKEZ2,0: REF INT"CHOHE BLUE}"sFORI=0TD43:PRINT" SPACE 
URN <74> 32 3:NEXT: GDSUB91:60T012 <207> 
77 X=INT (RND(1)#2) +1: T=A(A,X) «RETURN x22> 74 W=eD#*27: IFETHENW=W+Z& <244> 
78 X=INT (RND (1) #2) +2: T=A(A,X) a POKEZ2,0:R 95 PRINT" tHOHE RYSON WHITEI" 53 IFZ3=7856T 
ETURN x244> HENPRINTSPE (248) "TIME ’S{SPACEIUP"5 <46> 
79 PRINT"{CLEAR HHITE}"2C0=30720: POKESA97 96 GOSUB9B:GDTOIF <129> 
8,15: POKE348459 ‚255: POKES6879,111:H=22. <11> 97 PRINT"{HOHE}"SPC (226) "{RVSON HHITEIWE 
80 FORA=7744TUS195STEP 132: FORT=1T020: POR LL{SPACE2}YDONE" 4 sW=( (23-7856) /22+D)#Z7+Z 
EA+T „6: NEXT=NEXT <144> 6: 605UB98: 60T09%7 <51> 
81 FORA=7768TDB120STEFH: FORI=1TOHSTEP&=: I 98 FORI=1T0175STEP.3:POKE72, I: POKEZ1 ,249—- 
FI=13THENI=14 <21&> 1: FORX=1T040: NEXT: NEXT: RETURN <210> 
82 POKEA+1,5:NEXT:NEXT=PRINT"CHOHE}"3 <135> 99 PRINT"ICLEAR SPACEZIYOLLSPACEISTORED" 

=. W: 60SUBIB: RUN <191> 








E en ——— OM EGA ATTACK 


chen kniffelig programmiert wurde. 
Tippen Sie zuerst das VORPROGRAMM ab 
und speichern Sie es auf Diskette oder 
Kassette ab. 
Nun tippen Sie OMEGA ATTACK ein und 
speichern es wiederum auf dem Datenträ- 
ger ab. 
Sie können nun das Vorprogramm laden, 
durch RUN starten und die Anleitung für 
OMEGA ATTACK lesen. Dann werden Sie 
aufgefordert, OMEGA ATTACK zu laden, 
‚Wenn Sie OMEGA ATTACK auf Kassette 
gespeichert haben, drücken Sie einfach 
nur die Taste RETURN, Wenn Sie OMEGA 
\ ATTACK vorı Diskette laden wollen, müs- 
gun . schick beweisen. sen Sie hinter LOAD noch „OMEGA AT- 
Auch für die Grundversion! Ist doch wirklich überraschend, was die | TACK“,8 eintippen und ebenfalls RETURN 
Grundversion vom VC 20 alles kann. | drücken. Nach dem Laden starten Sie nun 
In einem spannenden Kampf gegen An- | OMEGA ATTACK ist ein wirklich kampf- | das Programm mit RUN und Sie können 
greifer aus dem Weltall müssen Sielhr Ge- | starkes Weltraumspiel, das ausgespro- anfangen zu spielen. 





GSompute mib a5 





VC20 LISTINGS + CHECKSUMMEN (VE V1.0) 


1 REMIS 

2 REM#«VORPRÜGRAMM# 

3 REMueeaunete nn 

41 

5% 

10 POKES&# ‚28: POKES2 ,2Br ELR: FOKE3S65679, B 

20 PRINT"TCLEAR DOHN2 RIGHT2 YELLOH+ZEIG 

HENSATZ{SPACEIWIRD" 

30 PRINT"{DIHN RIGHTIFNEUTSPACEFERSTELLT 
“ 








40 PRINT"CHHITE DOWN3 RIGHT2YBITTEISPACE 
IETWASTSPACEIGEDULD!" 


- 50 FORI=0T0511:POKE7168+1 ,PEEK132768+T) 3 


NEXT 

&0 FORI=0T0167: READW: POKE7168+1+216, Wr NE 

xT 

70 DATAO,1,497,53,183,191,255,253 

80 DATAO, 130, 138,202,206, 254,255, 255 

90 DATA32,33,49,55, 196, 255,255 ,255 

100 DATA&0,255,40,255,255,60,255,40 

110 DATA24,60,24,60,60,24,40,28 

120 DATA0,0,0,0,0,0,0,0 

130 DATA#0,90,255, 255, 255,235, 90,90 

140 DATAO,0,90, 255,255,90,0,0 

150 DATA204,51,29, 24,60, 126, 171,233 

160 DATAS1,204,24,24,60,126,213,255 

170 DATA124,189,219,239,247,219, 189,126 
180 DATAO,&0,90,110,118,70,60,0 

190 DATAO,66,24,36,44,74,64,0 

200 DATA129,0,36,8,16,36,0,129 

210 DATA1,0,32,4,16,0,66,0 

220 DATAO,24,36,60,126,70,102,46 

230 DATA56,124,68,124,170,40,40,68 

240 DATA60,102,60,24,24,36,64, 102 

250 DATA108,124,56,5%,16,14,1&,16 

260 DATAO,24,40,231,40,24,38,66 

270 DATA60,102,126,36,56, 24,36, 55 

280 PRINT"(CLEAR YELEOWI" 

290 PRINT"BEIM{SPACEISPIEL.{SPALEIOMEBA" 

300 PRINT"ATTACKSPALEIUEBERNEHMEN” 

310 PRINT"SIELSPAGEIDIELSPACEI AUFGABE, {$ 

PACEIDMEGA"; 

320 PRINT"VORCSPAGEIDERTSPACEIVOELLIGENT 

SPACEIZER-"; 

330 PRINT"STOERUNGLSPACEIZUCSPAGEI RETTEN 
" 








340 PRINT" DONNIDIESES{SPALCEIERREICHENTS 





\ PACEISIE,N 


350 PRINTJINDEMCSPAC EISIETSPACEIVERHINDE 
RN," 
360 PRINT"DASSCSPACEI ZWEI CSPACEIANDREIFE 





370 PRINT"UEBEREINANDER{SPACEHLANDEN. " 
380 PRINT"GELINST(SPACE) IHNEN SPACEIDAB” 


k 370 PRINT"NICHT , {SPACEIWIRD{SPATE}DNEGAT 





SPACEIZER-"} 
400 PRINT"STOERT, (SPACEIUNDLSPALEIDAS{SE 
ACEYSPIEL” 


410 PRINT"IST(SPACEIBEENDET!!!" 
420 PRINT"(DOWN3 RIGHTS RVSONITASTELRVSD 
EF)I"POKE19B,0:WAITASB,1 

430 PRINT" {CLEARY" 

440 PRINT"SOBALD(SPACEISIELSPALEIZEHNTSP 





\ ACEIAN-" 


450 PRINT"GREIFER{SPACE)IABGEWEHRT" 


' 460 PRINT"HABEN, € SPACEFERREICHENS PACE)YS 


IE" 
479 PRINT"DIELSPACEINAECHSTEISPAGEFLEVEL 





Aao PRINT"{DOHNIABLCSPACEILEVELTSPACEIGLS 





* PACEIMUESSENSPACEISIE"; 


490 PRINT"ZWANZIG{SPACEIANGREIFER" 

500 PRINT"ABWEHREN! !" ; 
510 PRINT" (DOHNIFUERTSPACEIJEDENISPATEIA 
BGEWEHRTEN"3 


‘ 520 PRINT"ANGREIFER{SPACEIERHALTENISPALE 





ISIE"3 
530 PRINT"LOLSPACEIPUNKTE. " 

540 PRINT"FUERTSPACE)JEDEN{SPACEIAUFGESE 
Tz-" 

550 PRINT"TEN{SPACEISCSPACEIMINUSPUNKTE. 
” 





560 PRINT" CBGHNZ RICHTZ RVYSONYTASTECRYSO 
EFY"POKE1F8,0:WAILT1FO,L 





8/86 


<180> 
<162> 
<182> 
xa2> 
x653> 
<102> 


<223> 
<215> 
<104> 
«5235 


<36> 
x70> 
x2356> 
<133> 
<107> 
<233> 
<79> 
35? 
x244> 
<B4> 
<24> 
x76> 
<4> 
<175> 
<x88> 
<4> 
x222> 
<77> 
<132> 
<50> 
sal> 
<187> 
x209> 
c82> 
<7> 


<130> 
<o> 
<48> 
«244> 
<97> 
<136> 
<48> 
<187> 
<95> 


<52> 
<237> 


<200> 
<205> 


*155> 
“293 


<242> 
2507 
x221> 
x<43> 

<140> 
<114> 


<197> 
<73> 


<204> 
<137>7 
<85> 


programme 


570 PRINT" ICLEARY" 





390 PRINT“ {DOWN2>BITTELSPACEILADENTSPACE 





3SIETSFACEFNUN” 


590 PRINT” IDOWN>IOMEBAISPACEIATTACKTSPACE 





+EIN. "sPOKE198,0 
600 PRINT” TDOHNZILBADLYEZI" 
ENDE DES LISTINGS 


«90> 
<121> 


<115> 
x129> 


VC20 LISTING + CHECKSUMMEN (VC V1.0) 


1 REM###OMEGA ATTACK 

2. 

10 3 

11 ELR: ZA=7680: FA=-3849: L5=-36879: 51=356897 
4: 52=36875: 53=36876: 54=3597 7:5P=22: LE=1: 
AGZ=10 n 

20 E=1: Z7=20:F=32: PRINT" TCLEAR CYAN}":POK 
E36879 „8: G0SUBYFSO 

30 PRINT"{IDGHNIUTSFPACEIMISPACEIETSPACEIG 
ISPACEIRESPATCEPIATSPACEITISPACEITISPACEI 
AISPACEITISPACEHK" 

40 POKELS, 15: FORL=SOTO1SI3FORI=128T0140:PQ 
KES1 ,TeNEXT:POKESI „O3 NEXT 

50 PRINT"{DOHHZ RIGHTZ YELLONWIGESCHRIEBE 
N{ISFACEFVON" 

60 FORL=0T09: FORI=240TO128STEF-1: POKES1, 
I: NEXT:NEXT:POKES1,0 

70 PRINT" {DOHNZ RIGHT4}TMOMASISPACEFBECK 
ER [3 

80 PRINT" {DOHN RIGHTZYUNDTSPATEIOLAFISPA 
GEHMUELLER" 

39 FORL=1STDOSTEP-IHFOKELS,L=FORI=128T02 
10:POKES4 , I:NEXT:NEXT: FOKES4,0 

100 FORI=OTDO1000:NEXT 

110 z 

120 REMrereeee 

150 REM#SPIELBESINN# 

1430 REMESUHNRHNEENE 

150 x 

140 POKE182, 10: POKEIFO ,S5: FPOKE178,303 POK 
E179,33: POKE36849 , 235: 5YS828 

170 PRINT"ICLEAR RED}Y"SPOKE3S6979 ,234 

180 FORI=1T021:PRINTI NEXT 

170 PRINT"ENIENIENIENIENITTNICNIEBLACKY "3 
200 POKEZA+505,27:POKEFArSOS,2 

210 ı 

220 FORL=1STOOSTEP-1: FORI=2547T0220STEP-1 
»POKELS,L: POKES2,Iı NEXT: NEXT: POKELS,8:PO 
KES2,O 

230 3 

240 REMIS HReH 

250 REM#BEWEGUNG# 

260 REMRAHRHHHHR 

270 : 

280 DRB=INT (RND (0) #6) +42: BA=INT {RND (1) #20 
)+1:ZM=240:L=LE#Z 

290 ı 

300 FORS=LTO140: NEXT: POKEZA+BA+SP „DB: POK 
EFA+BA+SP „Er POKEZA+BA,Fı BA=BA+5SPı ZM=ZM-E 
310 POKESS,ZM: IFPEEK (ZA+BA+5SPI =FTHENZOG 
320 «& 

330 REMERRHRNKHHRER 

340 REM#KOLLISION?# 

350 REM 

Su0O 8 

370 AL=PEEK (ZA+BA+8P} 

3806 !FAL=270RAL=ZB80RAL=2F THENSC=SC-S:GOT 
0260 

390 IFAL=FSORAL=SSTHENFSO 

395 IFAL=420RAL=A3ORAL=440RAL=4SORAL=460 
RAL=47THENA450 

400 S0T0O730 

410 E 

















Compute mib 


<151> 
<A07 
<aB> 


%125> 


<59> 


<Z210> 
<16> 
<177%: 
<112> 
<1457 
<22> 


<x22&6r 
xir 
»168> 
<23> 
<135> 
<43> 
x<208> 


<33> 
<195> 
<99> 
<1497> 
<“108> 
<12> 


<205> 
<32> 
<41> 
<2437> 
x<h2> 
<73> 


<29> 
<93> 


x80> 
<39> 
<123> 
x158> 
<71> 
“178> 
“1a3> 
<195> 


<192> 
<40> 


<175> 
«225> 
<213> 


10 








programme 


420 REM 

430 REM#EXPL. i# 

440 REM 

450 3 

460 POKESS,0:FORL=0T015: FORI=3ST042: POKE 
36865, 1: POKES4 , 1150: POKELS,L:NEXTTNEXT 
470 FORI=OTO400:NEXT 

480 FORL=15TOOSTEP-1:FORI=42TO38STEP-1:P 
OKES6845 , I: POKES4 , 1+150: POKELS,L:NEXT: NE 
xT 

490 PRINT" {HOHE DOHNS RIGHTTIGAMETSPALCER 
I0OVER"sPOKES4,0 

500 : 

510 POKELS,„15 

520 FORL=1T03:POKES{ „128: FORI=0TOS90:NEX 
T: POKES1 „2003 FDRI=0T05005 NEXT: NEXT: POKES 
1,0 

530 POKES65879 ,25 

540 FORI=15T00STEP-3:FORL=128T0200: FOKES 
4,L:POKELS,I:NEXT:NEXT:IFOKES4,O0 

550 5Y5955: POKE34879 ,8:POKE36869 ,240 

560 PRINT"{CLEAR HHITE}YPUNKTE:= "SC 

570 IFSC>HSTHENHS=SE 

580 PRINT"{DOWN2 RIGHTYERREICHTER{SPACE} 
LEVEL: "LE 

590 PRINT"{YEZLOH DOHN2 
"HS 

&00 PRINT"{DONN4 RIGHT CYAN}WEITERSPIELE 
N{SPACEI=TSPACE RVSONIWIRVSOFFF" 

610 PRINT"{DOHN RIGHTINEUES{SPACEFISPIELT 
SPACEI={SPACE RVSONYIN{RVSOFF}" 

&20 PRINT"{DOHN RIGHTIPROGRAMMISPACEIBEE 
NDENt{SPACEI={SPACE RVSONFETRVSOFF}":FORI 
=0T01500:NEXTıPOKE198,0 

630 GETAF 

640 IFAS="W"THENISO 

650 IFA$S="N"THENII 

&40 IFA$="E" THENEND 

670 GOTIS3O 

580 : 

69090 REMRMHHUERHEHE 
700 REM#EXPIL.. 2* 
7190 REMMRREEHRIRH 
7209 : 

730 POKES3E,O 

740 POKELS,15:FORL=37T041:POKES4,L+120:P 
OKEZA+BA,L:POKEFA+BA,2 

750° FORM=OTD150:NEXT= NEXT: PDKEZA+BA,F:FO 
RI=14T00STEP-1:POKELS, I: FORM=0T050: NEXT: 


RIGHTYHIGHSCORE: 











Nach dem tollen Erfolg unserer letzten 
Soundroutine für den VC 20 veröffentli- 
chen wir diesmal zwei kurze Musikpro- 
gramme von Rainer Graf aus der Schweiz. 
Wiedereinmal wird demonstriert, was in 
dem VC 20 für wundersame Soundeigen- 
schaften stecken. in den Programmen 


<16> 
<93>7 
x36r 
x253> 


x30> 
26? 
<18&> 
x212> 


<47> 
<10> 


34> 
x157> 
<31> 
<45> 
<129> 
<185> 
<198> 
<35> 
<256> 


<147> 


s103> 


<7> 
<130> 
<20> 
<197> 
<238> 
SZ2B3 
*317 
<116> 
<51> 
<12> 
<82> 


<102> 


SYoJllıle Hılel a de74r) 


steckt mehr als man aufgrund ihrer Länge 
vermuten könnte. Lassen Sie sich überra- 
schen. Auch die 3-D-Grafik ist wirklich se- 
henswert. 

Gönnen Sie sich eine Musikpause zwi- 
schen zwei Aktionspielen, oder wollen Sie 
vielleicht Ihre eigenen Programme mit 


VC20 LISTINGB + CHEGSKSUMMEN (VC V1.0) 


100 POKES4B77,254 

110 PRINT"{CLEAR DOHNA RIGHT2 BLACK RWSO 
N SPACESYWERIGHT SPACES RIGHTYWISPACES R 
IGHT4 SPACE RED SPACES RIGHT BLACK SPACE 


zuyHir Zr Ba BES De 


RED SPACE4 BLACK SPACE RIGHT RED SPACE4 


Saf/ln I fun ll Son 


<245> 


NEXT 

780 SC=SC+H10: LV=LV+E: POKES4 ,0: IFLV=AGATH 
ENA3O : 
77Ga POKELS,8:G60T0280 

7BO 3 

7990 REMRruaRRHH# 

800 REM#LEVEL*# 

B1LO REMrHFrFERHR 

820 3 

830 POKES48649 , 240: 5YS964: LE=SLE+1: PRINT"t 
CLEAR DOMN3 RIGHTYSIE SPACEFHABEN"AGYA"GE 
GNER” \ 

840 PRINT" {DOKN RIGHTNABRGEWEHRT." 

850. PRINT"{DGHNZ RIGHTYSIETSPACEYERREICH 
EN{SPACEFINUN” 

840 FRINT"{DBOHNR RIGHTYLEVEL"LE 

8706 PRINT"{DOHNN2 RIGHT2YSCORE: "SC: IFLE>S 
THENAGSK=2O 

980 > 

890 POKELS,15:FORL=0T05: FORI=128T0254:PD 























KES3,I2NEXT:NEXT:LV=0:G0T0180 


700 ı 

910 REMHHRIRRRERR 
920 REM#INTERRUPT#* 
930 REMHr#REHRRHERR 
940 : ! 
FORI=828T0976: READA: POKEIT ,AsNEXT=RET 


360 DATA120,169,73,141,20,3,169,3,181,21 
„3,88,96,165,2,201,2,240,5,230,2,76,191, 
234,169 
970 DATAO,133,2,166,182,165,203,201,35,2 
40,7,201,28,240,6,76,127,3,202,208,6,232 
„224,21 
980 DATA208,1,202,169,32,160,20,153,162, 
31,136, 208,250,167,0,157,162,151,165,190 
„201,36 
390 DATA240,5,105,1,76,140,3,273,1,133,1 
90,157 ,162,31,134,182,165,178,201,31,240 
„5,105 
1000 DATA1,76,160,3,233,1,133,178,141,16 
2,31,167,7,141,162,151,165,179,201,34,24 
0,5 
1010 DATA105,1,76,183,3,233,1,133,179,14 
1,193,31,169,7,141,183,151,76, 191 
1020 DATA234,120,169,191,141,20,3,169,23 
4,141,21,3,88,76 

ENDE DES LISTINGS 





Sound bereichern? 


Beispielmaterial! 


<179> 
<255> 


<195> 
z175> 


«71> 
<195> 
<194> 
<82> 
<214> 
<233> 


<249> 
<122> 
<597> 
<54> 
<895> 


<68> 


<235> 


<34> 





Hier finden Sie auf jedenfalls lehrreiches 


Übrigens: Für diese Routinen benötigen Sie 


nur die Grundversion. 


ROCK ON! 


BLACK SPACE RIGHT4 SPACE RED SPACE RIGH 
T. BLACK SPACE RED SPACE RIGHT BLACK SPAC 
E RED SPACE RIGHT2 SPACE BLACK RVSOFFIPT 
RIGHT}"3 


120 PRINT"{RVSON RED SPACE BLACK SPACE R 





LACK NEU SEADE RIGHT BERAER SEACES 
RIGHT RED SPACE BLACK SPACE2 RED SPACE B 


LACK SPACE RIGHT4 SPACE RED SPACE4 RIGHT 








Gompute mib 


<A3> 


8/86: 
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BLACK SPACE RED SPACE RIGHT SPACE2 BLAC. 

K SPACE RIGHT RED SPACE4 BLACK SPACE}" 
130 PRINT"(RIGHTZ RVSON SPACE RED SPACE 

BLACK SPACE RED SPACE BLACKYNCRIGHT SPAC 

E RED SPACE BLACK SPACE2 RED SPACE BLACK 

E RIGHT RED SPACE BLACK SPACE RIGHT 
RED SPACE BLACK SPACE RIGHT4 RVSOFFIWR 
VSON RED SPACE BLACK RVSOFE>YNCRED RVSON 
SPACE2 RIGHT BLACK RVSOFE?NWKRED RVSOH SP 
ACE4 BLACK RVSOFFIF{RIGHT. RED RVSON SPAC 
E BLACK RVSOFFIWERIGHT RVSON RED SPACE R 
VSOFF BLACK>P" 

150 PRINT"(DOHN2 RIGHTZ BLUEIS{SPACEINTS 
PACEIFLSPACEIT" 

160 PRINT"(DOWN2 RIGHTZYP{SPACEIRISPALE} 

EISPACEISTSPACEIELSPACEIN{SPACEHTLSPACEH 
Ss" 

170 PRINT"{DOWN3 RIGHT4 PURPLEYNUESSTEPA 
CEIILSPACEIDENN" 

500 B(1)=1:B(3)=1:0=C+1: IFC=2THENC=O 

510 IFC=OTHENB (2)=1:B(4)=1 

520 FORX=1T0178 

530 READT:POKE34877,0 
IFT=1THENREADT:B=TıNEXTX 

TA=TA+1: IFTA=STHENTA=13POKES6877 ,250 
IFB(TA)=1THENPOKES6875,Bz POKES6B74,B 
IFB(TA)=OTHENPOKE36875,03 POKESA874 ,0 














R 














N 





m 


| 





& 























580 POKE364876,T 

590 FORV=12TH1STEP. -1:POKES6978,V:NEXTV, 
x 

600 RESTORE=B=0:B(2)=0:B(4)=01G0T0500 


1000 DATA201,207,1,201,212,0,212,217,1,2 
19,215,0,215,223,1,201,217,0,219,215,212 
„0,0,0 

1010 DATA1,219,219,0,219,215,1,201,212,0 
„212,219,1,215,215,0,215,0,1,219,207,0,2 
19,0 

1020 DATA1,201,212,0,0,0,0,0,201,207,212 
„0,212,219,1,219,215,0,215,223,1,201,217 


o 
2 

1030 DATA219,215,212,0,0,0,1,219,219,0,2 
19,215,1,201,212,0,212,219,1,215,215,0,2 
15,0 

1040 DATA1,217,207,0,219,0,1,201,212,0,0 
»0,0,0,212,212,1,219,207,0,0,212,215,0,2 
07,0 \ 

1050 DATA1,201,212,0,0,215,217,0,219,0,1 
‚215,223,0,223,0,228,0,227,223,1,201,217 
o 

, 

1060 DATAO,0,0,0,201,207,212,0,212,219,1 
‚219,215,0,215,223,1,201,219,0,219,215,2 
12,0 

1070 DATAO,0,1,219,219,0,219,215,1,201,2 
12,0,212,219,1,215,215,0,215,0,1,219,207 


o 

3 

1080 DATA219,0,1,201,212,0,0,0,0,0 
ENDE DES LISTINGS 


xF71> 


<207> 


<24> 


“36? 


<1891> 
<179> 
<255> 
“1767 
<135> 
<x194> 
<183> 
<147> 
<14357 
<240> 


<2497> 


<194> 


<254> 


<10> 


<24? 


<179> 


<x65r 


<213> 


«19737 


<52> 
<209> 


VC20 LISTING + CHECKSUMMEN (VE Vv1.0) 


100 POKE36979,254 
110 PRINT"{CLEAR DOHN3 RIGHT3 RVSON BLAC 
KIP{SPACE4 RIGHTIWLSPACE2YWLRIGHT SPACEA 
ED SPACE4 RIGHT BLACK SPACE RED SPACE4 R 
IGHTS SPACE BLACK SPACE RIGHT RED SPACE 


BLACK SPACE RIGHT RED SPACE BLACK RVSOFF 
E | W”; 

120 PRINT"CRVSON RED SPACE RIGHT. BLACK S 
PACE RED SPACE RIGHT BLACK SPACE RED SPA 
CE RIGHTS SPACE BLACK SPACE2 RED SPACE BR 
LACK SPACE RIGHT RED SPACE BLACK RUSOFF} 


<245> 


<&4> 


programme 


E RED SPACE" 


m DE Me DA me De een 


SON RED SPACEY” 
150 PRINT" {DOHN2 RIGHTZ BLUEISCSPACEIOTS 
PACEIFISPACEIT" 
160 PRINT" (DOHNZ RIGHTZIPISPACEIRTSPACEI 
EISPACEISTSFPACEFETSPACEINISPALEITCSPACE> 
Sg" 
170 PRINT" {DOHN3 RIGHT2 PURPLEIYWENNLSPAC 
E}WIRLSPACEFERKL IMMEN” 
500 B(1)=1:B(3)=1:C=C+13 IFC=2THENE=O 
s10 IFC=OTHENB(ZI=L:B(A)=1 
520 FORX=1T0154 
530 READT:POKE36877,0 
540 IFT=1THENREADT: B=T:NEXTX 
550 TA=TA+1: IFTA=STHENTA=1 1 POKES6877,250 
560 IFB(TA)=1THENPOKE34875 ,B: POKE36974,B 
570 IFB(TA)=OTHENPOKE36875,0:POKE36874,0 
580 POKES64876,T 
590 FORV=12TD1STEP.-1:POKES6878,VıNEXTV, 
5 ; 
&00 RESTORE: B=0:B12)=0:B 4) =0:G0T0500 
1000 DATA1,215,201,201,0,201,1,195,207,0 
„1,215,201,0,223,223,0,223,1,225,225,0,1 
„215 
1010 DATA223,0,1,201,217,219,0,219,223,2 
23,0,219,1,215,215,0,1,195,207,0,1,215,2 
01,0,0,0 
1020 DATA1,215,201,201,0,201,1,195,207,0 
„1,215,201,0,223,223,0,223,1,225,225,0,1 
„215 
1030 DATA223,0,1,201,219,219,0,219,223,2 
23,223,219,1,215,215,0,215,0,219,0,223,0 
1040 DATA1,225,225,225,0,225,228,0,225,0 
‚1,215,223,223,0,223,225,0,223,0,1,201,2 
19,219,0 
1050 DATA219,223,223,0,219,1,215,215,0,1 
„225,225,0,1,215,223,0,0,0 
1060 DATA1,225,225,225,0,225,228,0,225,0 
„1,215,223,223,0,223,225,0,223,0,1,201,2 
19,219,0 
1070 DATA219,223,223,0,219,1,215,215,0,0 
‚0,0,0,0,0 

ENDE DES LISTINGS 

















Compute mi 


<214> 


<116> 


<113> 


<24> 


436) 
<8> 
<199> 
x2535> 
<150> 
<ı135> 
<184> 
<163> 
<147> 
<143> 
<240> 
“2497 
<154> 
<120> 
<212> 


<140> 


<95> 


xB> 


«38? 


<28> 


<125> 





1: B ER 
Se ER ER 


n 














PALINDROM Tests: 

Die beiden folgenden Routinen testen, ob 

ein eingegebener String vorwärts und 

rückwärts identisch ist. Routine 1 ist für 

Eingaben ohne Routine 2 für Eingaben mit 

dem Satzzeichen ' [Apostroph] und mit 
Leertasten. 


i. INPUT“STRING“;W$:L=LEN(WS):FOR 
I=1TO L:IF MID$(W$,1,1)=MID$LWS, 
L+1-11)THEN NEXT: PRINT “IDEN- 
TISCH“ 


i. 10 INPUT“SPRUCH";S$:L=LEN(S$) 

20 Z$=MID$(S$,L,1):1F Z$=" “OR ZI= 
"* THEN L=1-1:G0T0 20 

30 A$=A$+Z$:B$=Z$+B$:L=1-1:1F 
L>0 THEN 20 

40 IF A$=B$ THEN PRINT “IDENTISCH“ 


String-Umkehr: ! 
Diese Routine druckt den eingegebenen 
Sting in umgekehrter Reihenfolge: 


INPUT“string“;A$:FOR L = LEN(A$) TO 1 | Buchstaben zählen: 


STEP -1:PRINT MID$(A$,L,1);NEXT 


Worte zählen: 

10 INPUT“EINGABE";S$ 

15 WZ=1 

20 FOR N =1T0 LEN(S$) 

25 P$=1$ 

30 L$=MID$(S$,N,}) 

40 IF L$<T>"leertaste“ THEN 60 

45 IF P$="leertaste“ THEN 60 

50 WZ=WZ-+ 

60 NEXT 

70 PRINT "DAS WAREN“ WZ 
“\NORTE“:END 


Mach 'mal eine Fliege! 

Geben Sie im Direktmodus ein: 
POKE214,30. 

Drücken Sie die CRSR DOWN-Taste und 
schauen Sie genau zu! 

Das Bild normalisiert sich nach ein paar 
Sekunden. 


C-64: Strafversetzung auf den Wüstenplanet 


Death Desert 


Teriax, ein armseliger Planet, der zu einem Drittel aus Wüste besteht, wird laut | tödlichen Energiesternen zu kontern, de- 
dem Urteil des galaktischen Sicherheitsrates für mindestens zwei Jahre Ihr | nen man nur ausweichen kann. Ist dies 


künftiger Aufenthaltsort sein... 


Strafversetzt fristen Sie tagsüber an einer 
veralteten Plasmakanone Ihr Dasein, wäh- 
rend Sie nachts regelmäßig von vorbei- 
fliegenden Bomberstaffen aus dem 
Schlaf gerissen werden. 

Ausgerechnet auf Ihre Raumbasis kon- 
zentriert sich nun vor Sonnenuntergang 
ein Angriff der gefürchteten All-Piraten. 
Neben pechschwarzen Jägern, die es nur 
auf eine Kollision anlegen, versuchen mu- . 


man. 


Tag, 


Gompute mib 


Folgende Routine gibt die Anzahl der 

Buchstaben in einem eingegebenen 

String aus. Wenn die Eingabe Satzzeichen 

enthält, muß sie in Anführungsstrichen 

[“] erfolgen. 

10 INPUT“EINGABE";S$ 

20 FOR N= TO LEN(S$) 

30 B$=MID$(S$,N,1):BZ=0 

40 IF B$=" " OR B$="" OR B$= “,' OR 
B$=";“ OR B$=":" OR B$="?" 
OR B$="!" THEN 60 

50 BZ=BZ+ 

60 NEXT 

70 PRINT “DAS WAREN" BZ "BUCHSTA- 
BEN":END 


Farbkombinationsdemo: 

1 POKE650,128:FOR 1=01015:FOR 
J=0107:POKE646,J:FOR 
K=0T07:POKE36879,(1"16+8)OR K 

2 GET A$: ON -(A$="")GOTO2:PRINT“VC 
20:NEXT Ky,l 


tierte Flugsaurier durch den Abwurf von 
Säurebomben Ihr Leben zu verkürzen. Le- 
diglich ein präziser Schuß in das Auge 
dieser Monster kann sie außer Gefecht 
setzen, was allerdings das Mutterschiff 
des Gegners dazu veranlaßt, sofort mit 











8/86 





überstanden, greift das Mutterschiff zu seiner letzten Waffe: ei- 
ne Hochgeschwindigkeitsrakete, die, wenn sie nicht getroffen 


wird, bedrohlich näher kommt. 


Ein Spiel für wahre Joystickmeister! 


C654 LISTING MIT CHECKSUMMEN <C V1.0% 


REM Wet N 


* 
DEATH DESERT * 
(C) 1986 = 
WRITTEN BY * 
CHRISTIAN WURZER * 
FOR COMMODORE 64 * 
(WOYSTICK: PORT 2° 73 * 
%* 

% 


SONDUBUN»O 
Aa 
m 
22 
KekkHH* 


REM HERRBHRRHBRHHHTEREN 
10 : 
40 POKESS,0: POKESs,150 
50 POKES3280,0:P0OKES3281 ,0 
2004 DATA120,169,51,133,1,169,0,133,95,1 
35,90,133,88,169,208,133, 96, 1697,240 
2005 DATA133,89,169,224,135,71,32,391,16 
3,169,55,133,1,88,96 
2010 FORT=832T0832+33: READU: FOKET „@: NEXT 
2020 SYS932:POKE8S0 ,140:5Y5932: PDKES457& 
„PEEK (56576) AND252: POKES3272,8 
2030 POKE648,192 
2040 PRINT"{CLEAR RED DüuNe SPACEISYBITT 
EtSPACEFYWARTEN" 
2041 PRINT"tDOHN SPAGEFFDATEN{SPAZEIWERD 
ENTSPACEIEINGELESEN" 
2050 READY: IFX=-1THEN2050 
2052 C6=57344+X*8: FORI=0TD7:READZ: POKECG 
+1,Z:NEXT:60T02050 
2060 : 
2100 DATA176,124,664,70,104,114,78,126,0 
2102 DATA177,56,8,8,24,24,24,60,0 
2109 DATA178,126,66,2,126,758,76,125,0 
2110 DATA179,62,2,2,30,6,6, 125,0 
DATA190,64,64,68,68,126,12,12,0 
2112 DATA181,62,32,32,62,6, 70,124,0 
2113 DATA182,126,54,64,126,78,78,125,0 
2114 DATA183,126,66,4,9,24,24,24,0 
2115 DATA184,60,36,36,126,98,90,17268,0 
2116 DATA185,126,66,56,126,6,6,126,0 
2125 DATA27 ‚254,254 ,254 ,253, 253,253, 251, 





2126 DATA2B,251 ‚247,247 ,247 ,239,239,239, 
2127 DATA29 ,223,223,191,191,191,127,127, 
2128 DATA30,254,254,253,251,251,247,23%, 
2129 DATA31,223,191,191,127,255,255,255, 
2130 DATA33,255,255,255,255,254,254,253, 
DATA3S,251,247,239,239,223,191,191, 
2132 DATAS6,127,127,191,223,223,239,247, 
2133 DATA37,251 ,253, 253,254 ,255, 255,255, 
2134 DATA38,255,255,255,255,127,127,191, 
2135 DATAS9,223,239,247 ,247,251 ,253,253, 


2136 DATA40,127,127,127,191,191,191,223, 


<185> 
<9B> 
<56> 
x534> 
<42> 
<88% 
<h7> 
“242> 
<tLos> 
“1923 
x8689> 
x50> 
<132> 


2477 


<130> 
<73 


757 
<1497> 


<69> 


<1357 
#157 


x243> 
<78> 
£F72 
<136> 
«38> 
x<111> 
<Aa5?> 
x1597> 
«129> 
<141> 
<142> 
<1977> 
x134> 
A773 
«37 
<2453> 
x206> 
<56> 
<132> 
<196> 
<224> 
327 
<116> 


<113> 


programme 


2137 DATA91 „223, 239,239,239,247,247,247, 
251 

2138 DATA42,251 ,251 ,253,2535,253,254,254, 
254 

2139 DATAA3,247 247,247 ,247 ,247,247 247, 
247 

2140 DATA44 „254 ,253,251,247,239,223,191, 
127 

2141 DATA45,127,191,223,239,247,251,2593, 
254 x 

2442 DATA26,127,127,127,127,127,127,127, 
127 

2146 DATA58,0,0,12,30,62,63,127,127 
2147 DATAS9,127, 126,253, 253,293, 251,251, 
247 

2148 DATA6O,64,192,224,239,247,247 251,2 
51 

2149 DATA ,0,0,0,124,192,224 ,224,240 
2150 DATAS2,1,14353, 15,31, 63,255 

2152 DATAsS, 120, 192,192,224, 248,252, 252, 
255 

2153 DATAO, 254 ,254,253,251,247,239,239,2 
23 

»154 DATA94,127,191,223,223,237,247,251, 
253 

2155 DATA65,0,0,0,8,0,0,0,0 

2156 DATA25,255,127,63,15,7,743,1 

2157 DATAZ&, 255,254 ,252,240,224,224,192, 
129 

2158 DATA24 ‚255,255, 255,255, 255,255,255, 
255 

2159 DATA112,3,62,127,199,6,6,7,7 

2160 DATA113,0,0,192,240,56,12,12,& 

2161 DATA:14,7,7,6,54,127,207,207 ,120 
2162 DATA115,6,6,6,6,12,252,249,0 

2175 DATA-1 

3500 REM --—- MC-CORE 

3505 DATA162,0,142,192,72,174,241 ,207,224 
„1,240,94 

3510 DATA173,0,220,41 ,237,141,255,207,17 
4,0,208,224, 2S, 240,36 

3512 DATA17A, 255, 207, 224 ,105,208,5,162,2 
55,142,192,2,174,255,207 „224,106, 208,5 
3514 DATA1L&2,255,142,192,2,174,235,207,2 
24 ,107,208,5,162,255,142,192,2 

3516 DATA174,0,208,224,252,240,36,174,25 
5,207 ,224,101,208,5,162,1,142,192,2 
3518 DATA174,255,207,224,102,208,5,162,1 
„142,192,2,174,255,207 ,224,103,208,5 
3320 DATA1E2, 1,142,192,2 

3526 DATA174,241, 207 »224,1,240,38 

3527 DATA174,0,220,224,112,176,31,173,21 
„208,41,2,201,2, 220, 22,174,0, 208, 142, 2 
3529 DATA2OB, 162, 170, 142, 3 ‚2089 „32,29, 200 
.„173,21,208 942,141, 21,208 

3532 DATA174,3,208,224,30,208,8,173,21,2 
08,41,253,141,21,2089 

3542 DATA174,254,207,224,0,208,19,162,1, 
142,41,208,162,9,142,42,209,142,43,208 
3543 DATA142,44,208,239,254,207 

3545 DATA174,254,207,224,1,208,91,162,0, 
142,5,208,142,7,208, 162,21,142,;9,208 
3550 DATA142,11,208,162,0,142,4,208,142, 
8,208,162,24,142,6,208, 142,10, 208 

3555 DATA173,16,208,9,60,141,16, 208,162, 
255,142,196,2 

3550 DATA162,1,142,197,2,162,14 

3545 DATA142,180,2,1&2,90,142,181,2 

3570 DATA1652,48,142,250,195,162,42,142,2 
51,195,162,44 

53575 DATA142,252,195,162,43,142,253,195, 
175,21,208,9,60,141,21,208,238,254 ,207 
3595 DATA174,254,207,224,2,208,96,238,25 


Sompube mib 


57 
<3a>r 
9 Da 
«727 
<92> 


357 
<107> 


<0> 
%135> 
x5> 
<a? 
<1307 
<220% 


<A3> 
<121> 


x230> 
«20357 
<81> 
x49> 
<178> 
<78> 
x18> 
<2477> 
<169> 
<105> 
<252> 
<246> 
«106> 
<10> 
<47> 
<39> 
<149+ 
<118> 
x243> 
x33r 


«1013 
x6> 


<134> 
«165> 
<75> 
<91> 
x166> 
<174> 


<10> 


33 








14 


U 


programme 


3,207,174,253,207,224,1,208,52 

3598 DATA238,252,207,174,252,207,224,1,2 
08,15,162,42,142,251,195,162,44 

3602 DATA142,252,195,162,43,142,253,195 
3608 DATA174,252,207,224,2,208,20,162,45 
„142,251,195,162,47,142,252,195,162,4& 
3610 DATA142,253,195,1642,0,142,252,207 
3618 DATA174,5,208,224,80,208,5,162,255, 
142,197,2 

3620 DATA174,5,208,224,50,208,5,162,1,14 
2,197,2 - 

3635 DATA238,244,207,174,244,207,224,230 
‚208,5,162,90,142,244,207 ,238, 246,207 
3637 DATA174,246,207,224,255,208,74,238, 
245,207,174,245,207,224,10,208,64,162,0 
3639 DATA142,245,207,162,135,142,1%,208, 
174,244,207,142,12,208,162,49,142,254 
3641 DATA195,173,21,208,7,64,141,21,209, 
162,1,142,205,2,162,90,142,189,2 

3643 DATA162,0,142,29,209,162,0 

3644 DATA1L42,18,212,162,204,142,19,212,1 
62,10,142,15,212,162,129,142,18,212 

3647 DATA174,13,208,224,141,208,11,238,2 
54,195,162,60,142,189,2,238,13,208 

3649 DATA1L74,13,208,224,145,208,11,239,2 
54,195,162,45,142,189,2,238,13,208 

3651 DATA174,13,208,224,153,208,11,238,2 
54,195,162,30,142,189,2,238,13,208 

3653 DATA174,15,208,224,160,208,11,238,2 
54,195,162,22,142,189,2,238,13,208 

3655 DATA174,13,208,224,172,208,11,238,2 
54,195,162,15,142,189,2,258,13,208 

3657 DATA174,13,208,224,190,208,17,162,& 
4,142,29,208 

3658 DATA173,12,208,56,235,11,141,12,208 
‚238,13,208 

3659 DATA174,13,209,224,205,208,16,173,2 
1,208,41,191,141,21,208,162,0,142,205,2 
3650 DATA2S8,13,208 

3710 DATA174, 254,207 ,224,2,208,116,173,2 
1,208,41,128,201,128,240,42,173,16,208B 
3712 DATA41,16,201,16,240,33,174,8,208,1 
42,14,208,174,7,208,142,15,208 

3714 DATA162,55,142,255,195,162,1,142,46 
‚208,142,207,2,173,21,208,9,128 

3716 DATA141,21,208 

3720 DATA174,15,208,224,180,208,33,162,5 
6,142,255,195,162,0,142,207,2 

3721 DATA162,0,142,4,212,162,10,142,1,21 
2,162,9,142,5,212,162,129,142,4,212 
3722 DATA238,15,208,174,15,208,224,181,2 
08,18 

3723 DATA2398,243,207,174,243,207,224,200 
„208,8, 173,21,208,41,127,141,21,208 





3752 DATA174,30,208,142,242,207,174,254, ° 


207 ,224,2,208,31,173,242,207,41,130 

3755 DATA201 ,130,208,22,162,0,142,207,2, 
173,21 ,208,41,125,141,21,208,32,0,200 
3757 DATAS2,53,200,174,30,208 

3810 DATA174,241,207,224,1,240,46,173,24 
2,207,41,65,201,65,208,37,173,21,208,41 
3812 DATA191,141,21,208,162,57,142,248,1 
95,162,1,142,241,207,142,39,208,162,0 
3814 DATA142,240,207,162,0,142,18,212,32 
‚0,200,32,181,200 

3852 DATA174,241,207,224,1,208,29,238,24 
0,207 ,174,240,207,224,250,208,19 

3854 DATA162,40,142,248,195,162,0,142,39 
„208, 142,241 ,207,174,30,208,206,239,207 
3905 DATA76,0,152 

4510 DATA162,15,169,128,141,61,3,141,60, 
3,222,209,2,208,44,197,176,2,157,208,2 
4512 DATA189,192,2,240,33,16,12,189,0,20 
8,8,222,0,208,40,240,7,208,19,254,0,20B 


593 


<235> 
<16> 


<155> 
<244> 


<Ab> 

<£102> 
<122> 
<215> 
<110> 


<177? 
<108> 


“18> 
x30> 
“2A? 
<214> 
<225> 
<11&> 
<107> 
7a> 


<171> 
<139> 


<15> 
<107> 


«B7> 
<160> 


x54> 


<68> 


47772 
<102> 


<13S3> 
»130> 
x166> 
s134> 


<167> 
<767 


«2337 


<196> 


.4514 DATA208,14,173,60,3,208,9,173,61,3, 


77,16,208,141,16,208,173,60,3,208,3,78 
4516 DATAS1,3,73,128,141,60,3,202,16,191 
‚76,4,196,-1 

4610 DATA162,0,142,4,212,162,13,142,5,21 
2,142,6,212,162,13,142,1,212,162,255 
4612 DATA142,0,212,162,129,142,4,212,96 
4615 DATA162,0,142,11,212,162,11,142,12, 
212,142,13,212,162,23,142,8,212,162,129 
4617 DATA142,11,212,96 

4622 DATAL74,251,207,224,185,240,5,239,2 
51,207,209,85,162,176,142,251,207 

4624 DATAL74,250,207,224,185,240,5,238,2 
50,207 ,208,68,162,176,142,250,207 

4626 DATA174,249,207,224,185,240,5,239,2 
49 ,207,208,51,162,176,142,249 ,207 

4628 DATA174,249,207,224,185,240,5,238,2 
48,207 ,208,34,162,176,142,2489,207 

4630 DATA174,247,207,224,185,240,5,238,2 
47 „207 „208,17,162,176,142,251,207 

4632 DATA142,250,207,142,249,207,142,248 


„207 ,142,247,207 


4634 DATA174,251,207,142,83,195,174,250, 
207,142,82,195,174,249,207,142,81,195: 
4636 DATA174,248,207,142,80,195,174,247, 
207,142,79,195,96 

4640 DATA162,1,142,33,208,160,0,162,0,23 
2,200,192,255,208,251,224,30,208,246 
4642 DATA142,0,142,33,208,96 

4655 DATA174,4,208,142,6,208,174,5,208,1 
42,7,200,162,59,142,251,195,162,5 

4657 DATA142,183,2,162,255,142,198,2,162 
„1,142,199,2,175,16,208,9,8,141,16,208 
465597 DATA162,1,142,42,208,173,21,208,9,8 
;141,21,208 

4665 DATA174,0,208,142,237,207 

4667 DATA162,1,142,182,2,96,-1 

4710 DATA174,241,207,224,1,240,44,173,24 
2,207,41,129,201,129,208,35, 173,21,208 
4712 DATA41,127,141,21,208,162,57,142,24 
8,195,162,1,142,39,208,142,241,207 

4714 DATA162,0,142,240,207,142,207,2,32, 
0,200,32,181,200 

4755 DATA174,254,207,224,2,208,88,173,24 
2,207 ,41,6,201,6,208,79,32,181,200 

4760 DATA32,0,200,173,21,208,41,67,141,2 
1,208,162,110,142,4,208,162,50 

4765 DATA142,5,208,162,58,142,250,195,16 
2,18,142,180,2,162,255,142,196,2 

4770 DATA162,0,142,197,2,173,16,208,9,4, 
141,16,208,162,2,142,41,208,173,21,208 
4775 DATA9,4,141,21,208,162,0,142,238,20 
7,238, 254,207 ,32,53,200,32,53,200 

4781 DATA174,254,207,224,3,208,18,174,4, 
208,224 ,10,208,11,162,0,142,196,2 

4782 DATA32,206,200, 238,254 ,207 

4795 DATA174,254,207,224,4,208,56,174,7, 
208,224,180,208,49,173,21,208,41,247 
4790 DATA141,21,208,238,238,207 

4792 DATA162,0,142,4,212,162,10,142,1,21 
2,162,12,142,5,212,162,129,142,4,212 
4795 DATA174,238,207,224,10,208,8,162,5, 
142,254,207,24,144,3,32,206,200 

4805 DATA174,254,207,224,4,208,13,174,6, 
208,236 ,237 ,207 ,208,5,162,0,142,198,2 
4807 DATA174,254,207,224,5,208,25,162,1, 
142,196,2,174,4,208,224,120,208,13 

4809 DATA162,6,142,254,207,173,21,208,41 
„243,141 ,21,208 

AB17 DATA174,241,207,224,1,240,46,173,24 
2,207,41,9,201,7,208,37,173,21,208 

4819 DATA41,247,141,21,208,162,57,142,24 
8,195,162,1,142,39,208,142,241 ,207 

4820 DATA162,0,142,240,207,32,0,200,32,1 


GCompute mib 


<145> 
<Z244> 


<58> 
<33> 


<247> 
<216> 


<147> 
93? 
<51> 
«2535> 
<149> 
<104> 
<10> 
<166> 


<104> 
<125> 


<189> 
<92> 
<63> 
<160> 
<225> 
<142> 
<A6> 
<220> 
<243> 
<31> 
<89> 
<166> 


<151> 


<72> 
<132> 


«25> 
<237> 
<36> 
<236> 
<126> 
<174> 
<532> 
«157> 


<170> 


8/86 








8/8t 


81,200,162,5,142,254,207 

4832 DATA174,254 207,224 ,6,208,52,162,0, 
142,4,208,162,50,142,5,208,162,60 

4834 DATA142,250,195,162,5,142,180,2,162 
‚70,142, 181,2,162,1,142,196,2,142,41 
4836 DATAZOB,173,16,208,41,251,141,16,20 
8,173,21,208,9,4,141,21,208,238, 254,207 
4839 DATA174,254,207,224,7,208,19,162,0, 
142,197,2,173,16,208,41,4,201,4,208,5 
4840 DATA162,1,142,197,2 

4852 DATA174,241,207,224,1,240,46,173,24 
2,207,41 ,5,201,5,208,37,173,21,208 

4854 DATAS1,251,141,21,208,162,57,142,24 
8,195,162,1,142,39,208,142,241 ,207 

4856 DATAI&2 ‚0,142, 240,207,32 ‚0,200, 32,1 
81,200,162,0,142,254,207 

4859 DATA1L74, 254,207 ,224 „7.208 ,37,173,24 
2,207 ,41,6,201 ,6,208,28,173, 21,208 

4860 DATA41,249,141,21,208,32,0,200,32,5 
3,200,32,53,200,32, 55, 200, 142,0, 142,254 
2861 DATA207,174,30, 208 

4872 DATA174,239,207,224,175, 208, 1,96,17 
4,239,207, 142, 111, 195 

4892 DATAI74,254,207 „224,2,208,116,173,1 
6,208,41,4,201,4,208,34,173,16,208 

4893 DATA9,16,141,16,208,174,4,208,224,2 
32,176,11,173,16,208,7,40,141,16,208 
4894 DATA56,175,8,173,16,208,41,215,141, 
16,208,173,16,208,41,4,201,4,240,34 

4895 DATA173,18,208,41,239,141,16,208,17 
4,4,208,224,232,176,11,173,16,20B 

4895 DATA41,215,141,16,208,564176,8,173, 
14,208,9,40,141,16,208 

4897 DATA173,4,208,141 ,8,208,24,105,24,1 
41,6,208,141,10,208,173,5,208,141,7,208 
4898 DATA24,105,21,141,9,208,141,11,208 
43700 DATA75,114,197,—1 

4997 x 

5000 REM --— 5PRITES 

5015 DATA, assanunsnuonlßnn ln hr na 5hr 
7,124,43,254, 419644116, 5,08, 39,124, ,7 

5017 DATA255,192,15,109,224,62,258,248,2 
9,239 ,112,13,239,96,7,255, 192,5, 

5025 DATA, 16,597 Ey l2A, 1 25 Bu anna nn 


„179979 ER EREERKERTELEUEELERERLERT) 


5026 DATA 
5029 DATA128,,,100, 64, ,118,97,,119,113,1 
28,63,249,192,29,247,192,30,239,224,15 
5031 DATA110,224, 7,110,224,3, 111 ,224,3,1 
73,192,1,191,192,1,197,124,1,193,129,1 
5033 DATA239,3,129,254,7,193,252,7,193,2 
48,15,227,240,30,247 ,224,124,255,223 
5035 DATA248 

5039 DATA255,254 ,224 ,255,253,129,251,251 
‚29,238, ,29, 188, ‚62, 240, ,63,,,127,128 
5041 DATA,255,192,,251,192,,219,224,,187 
„224, ,221,224,,189,224,,126,224,,12& 
5043 DATA192, ‚254,192, ,125,64,,121,128,, 
KARRELLER 

5047 DATA, HASp HH 31n 403111 30,11 2843 167 4 
vorryounnninnn ann 15, 473052449, 5,207 
5049 DATA,3,183,,154204, 556227 336043 796 


5055 DATA, 4424997397937 3330,45124, 51,249, 
„3,158, ,14,124, ,29,248,,59,255,,119 

5057 DATA254,,239,158, ,220,124,1,243,240 
„131,207,192,195,190,,195,240, ‚231,192 
5059 DATA,247,128,,255,191, 

5044 DATA255,253,224,255,251,252,255,247 
‚255,31,252,31,31,248,7,63,224,7,12& 
5046 DATA,3,255,,1,255,172, „255, 240,2,25 
5,255,252,255,223,240,255,99,128,127 
5068 DATA188,248,127,207,255,63,241,192, 
3,254,112,,63,252, 3131 yr 3009 


<147> 
<7> 
1333 
<a1> 


<ı71> 
“1547 


<B8> 

1697 
<217> 
<162> 


<171> 
<161> 


sı1> 
<237> 
<176> 
<182> 
93 
<58> 
<172> 
<107> 
<206> 
<212> 
<251> 
<189> 
<159> 


773 
<20> 


<179> 
<i04> 


KRAO> 
“337 


<154> 


<134> 


<14> 


«1793 


<194> 


“377 


<58? 
<191> 


3? 


<123> 


327 


‚programme 


5072 DATA, 5 LE gs 1 51 us Finn SOy nnd lien 
BIUTIFTUWTETTRUETPITTITTTITITITUUTDOT TG 
5074 DATA, vs, 

9078 DATAy wen EST I HTITOIETTIITTEENITG 
VEIIIRIPIEIFTLIFIIFTTTTEITNV PERL Te) 


5082 0) 2 Pe EEREERBULEERELEL N 


PEEEREKESEERSTERELEELLEEZELLERLEN] 

Ss08& DATAy saw yansannsan yore, 
Os HOn THU ITITEETITTIETITIITN 
50972 DATAysysyusswsorsnnenn nn nn 4Q, Hy 1OD, 
Pa L = 1. SoRPur 6; | = Poreeem Inu EEE EEE 

5094 DATA, yyyrnsuu70n 

5098 DATA, syos sans run 6 nt 9, 51,197 
413,69,128,2,254,128,3,215,128,5,151 
5079 DATA128,3,1,128,2, 5128, auH vH 07 30H 
7172999 

5102 DATA, gyayssusyny152l31,55,1314,128,7, 
131 ,192,15,131,224,30, 146,240,29,255 
5104 DATA112,30,170,240,31,147,240, 31,1, 
240,30,,240,28, „112,24, 04B so yr 92 0009 
5105 DATAyyr 

S10B DATA, »3015342,128,751,192,13,1,96,2 
7,1,176,55,1,216,111,1,236,105,17,44 
5110 DATA103,255,204,105,109,44,111,41,2 
36,111,17,236,110,16,256, 108, „108,104 
Sill DATA,44,1124 528496, n12pnsan nur 
5114 DATA, snarorron sau nn ns tZO 
PERB PA PET U PESEEELLLLEELSELEIEELELELEN 
5115 DATA, 

5118 DATA, sa sunonaH HH un 7 130, 50,195, 
170, 41,824 425217442170, 11,116, 4,168 
5120 DATAyssasunr nun Var U 1995 

5124 DATA, „128, 4,1284 ,1,12B,,3,128,12,7, 
128,7,12,193,7,16,34,6,144,38,4,100, 158 
5124 DATA64, 34, 22,98,32,56,113,138,44,5& 
„160, 168,38,5, ,1,200,81, 176,3,62 ‚229,20 
5128 DATA30,232,32,140,97,9,36,54,4,889,2 
4,209,16 

5132 DATA,S,240, 5,4120, 5 4y a1 219 2a unfsse 
4,,56,28,,30,62,,15,295,,30,62, „56,28 
5154 DATA, yAy ya Zaren 5 120, 13,24 
Oyyyaın 

5138 DATA, sans ron 0 1 4 5012025 
«30,5,127,192, 4,15, 1929, 17,96,128, 44 

5140 IL PERTEETTRERTELESERRERR 

5145 DATA, 5128, 3,15 192, 528 aaa m nun y 
VII ETIFRITUTETVOTTIRITTITTEITUTI NN 
5147 DATA, 

&000 REM -—- EINLESEN DER DATEN 

6002 

6004 FORT-0T09779: READU: IFO=-1THENAHOB 
6005 PIKESO180+T „GB: NEXT 
6008 FORT=01699799rREADQ: 
6010 POKES1200+T ,BENEXT 
&012 FORT= OT0F999:READB: IFO=-1THEN6018 
6013 POKESBF12+T,B: NEXT 

6018 FORA=OTO12B0STEP&4 : 

6020 FORB=O0TD&2: READER: POKES1712+B+A,„O:NE 
XTB:NEXTA 

7000 REM --— VARIABLEN,DATEN 

7004 V=53248:PDKEV+17 ,PEEK (V+17IAND2SF 
7010 FORT=58B8T0719: POKET ,O=:NEXT 

7014 FORT=39T0443 POKEV+T ,15: NEXT 

7018 PÜKEV,1001POKEV+1 ,170: POKE688,, 55 POK 
ES0168 ,40: POKEV+39,0 

7019 FOKE707 ,255: POKE49F1 „4: POKES0167,41 
7020 POKEV+45 ,0: POKE703, 9: FÜKEV+Z1 ,1r:POK 
EV+16,0 

8011 FORT=0T04: POKESS239+T ,175: NEXT 
8012 POKESS248 „O1 POKESSZ245 ,0: PDKEST244 ,O 
: POKESS235 ,0: POKESS2IT ,0: POKESSZS1 ,178 
8030 REM --- SOUND 

8052 61=54272: FORT=0T0244 POKESI+T,OSNEXT 
8034 POKESI+24,31 1 POKESI+21 ,3:POKESI+Z2, 


IFQ=-1THEN&O12 


Sompube mib 


<> 
<208> 


<190> 


<188> 


<206> 


<159> 
“2447 


<224> 
“224> 
<119> 


2177 
<19> 


<148> 


sa9r 
<188> 


<2> 
<233> 


<132> 
x251> 


<201> 
<115> 
<iöi> 
<109> 
<176> 


<129> 
<2397> 


<113> 
<10> 
<62> 
x195> 
<54> 
<172> 
x198? 
<145> 
<84> 
<208> 
<246> 


<180> 
<80> 
<83> 
x115/ 
<1&r 


<609> 
«175> 


<159> 
<ı184> 


245> 
8653> 
4254 > 


15 











16 








werkstatt 
























































































































































45: POKESI+23,245 <18> E5 RVSOFF).{RVSON SPACES RVSOFEF} .TRVSON 
9000 REM --— GRAFIK <52> SPACES RVSOFFI+{RVSON SPACES RVSOFF}.ERV 
9010 PRINT" {CLEARY" <115> SON SPACES RVSDEF>.TRVSON SPACES RVSBFF> 
9011 FORT=01T012: X=INT {RND (0) #300) sPOKE49 „{RVSON?” <218> 
152+X „65: POKEISSZIETX ,I1:NEXT <217> 9028 PRINT" {RED?SCORE{SPAGCE2 RVSON}OOOOO 
9012 PRINT" {DOHHSF” <30> DLIRVSOFE SPACEIFILIVESTSPACEZ RYSONIS" <253> 
9013 PRINT” {DGREY}S ISPACE12?, {SPACEI6>ı* <214> 9027 PRINTTAB(16)"{UP RED} {SPACES: 4" <129> 
9014 PRINT" IDGREY}3<CS<STSFACEY YPISPACEN} 9030 PRINTTAB (16) " (REDI-JTEATHISPAGEI-ÄES 
>; <=tSPACESI >=TSPACES} >3<7" <117> | ERT® <32> 
3015 PRINT"IDGREY RVSOH SPACES RVSOFFIeT 7100 POKEV+17 ,PEEK (V+17) OR1&: POKEV+30,0:3 
RVSON SPACE2 RVSAOFF>wERVSON SPACEIF RVSO SY551200: SYS550160 <166> 
FFI@LRVSON SPACE4 RVSOFFISIRWSUN SPACES} 9203 POKE644 „RND (0) #200: BETAS: IFAF="N’'TH 
" <137> EN7000 <237> 
901& PRINT"{UP DGREY RVSON SPACE38 RVSOF 9204 POKES3269, 1:POKE214, 1:POKE211,0:5Y5 
FE. BROUN3—-CRVSONY_" <240> SBA40 <249> 
9017 PRINT"{HP RVYSON BGREY. SPACE3IG BROUN 9205 PRINT" ISPACEI>KXPIERACEI SKTLSRACE} > 
SPACE RVSOFF}." <209> PrPLSPACEI>KPISRACESI>KTISPACEITESPACE2T 
7018 PRINT"{UP RVSON DGREY, SPAGCE3S BROHN PESPACEF>XFTISPAGEI IKT?" <69> 
SPACE RVSOFF}.” *210> 9207 PRINT" SPACEIKISPACERIXISPACEIK{SPA 
9020 PRINT"{UP BROHH RVSON SPACE2 RVSUEF CEIKÄKKXTSPACEIKISPACETIKTSPACEIKISPACEIK 
3,{RVSON SPACE4 RVSOFFI”{RVSON SRACES BY {SPACEZIKTSPACEIKLSPACEZIXISPACEIK" <107> 
SOFFIL{RVSUN SPACES RVSOFF}+{RVSON SPACE 9209 PRINT" {SPACEIXTSPACEIXPLISPACEIKIKTSE 
5 RVSOFF}Y({RVSON SPACES RVSOFFIS{RVSON 5 PACEYXVZXISPACEIKXLSPACESIKISPACEIKTSPAT 
PACE4 RVSOFF}-IRVSON SPACE RVSOFF}I-." 1777 EIXISPACE2YKISPACEIXXLSPACEZIXXZ" <12> 
9022 PRINT"{tP BROWN RVSON SPACE RYSOFF} 9211 PRINT"{SPACEIKLSPACEZIKISPACEIKISPA 
„{RVSON SPACE4 RVSOFF>Y!_{RVSON SPACES RW CEIXLSPAGEIKESPACEZINISPACEHKTSPACETIXTS 
SOFFI\{RVSON SPACES RVSOFFI+RVSON SPACE PACEIKTSPACEIYFPZISPACEIKISPACEZINY?" <103> 
5 RVSOEFY)TRVSON SPACES RYSOFFYKRIRVSON 9213 PRINT" ISPALEIYKXZISPACEIYISPACEIZIS 
SPACEA RVSUFE+-IRVSON SPACE" 293> PACEIV{SPACELFZISPACEIVXZISPACESIYXZ{SPA 
9024 PRINT"TUP BROWN RUSOFE} ,{RVSON SPAC CEZYYZISPALEDIVXZISPACEIY{SPACEIY" <119> 
ES RVSOFFI#LRVSON SPACE6 RUSOFFYIIRVSOH 9442 PRINTTAB (8) " (DOUNYFTASTETSPALEINISFA 
SPACES RVSOFFI+IRVSON SPACES RVSGFEIHTRV CE>IFUERTSPACEINEUESSPACEISPFEL" <213> 
SON SPACES RVSOFF}'{RYSON SPACES RVSOFF} „ 9500 60T09203 <145> 
<241> 


-{RVSON SPACE}Y" 


9026 PRINT"{UP BROWN RWSOFFY.{RVSON SPAC 


oe no areas zum 





Universelles Hilfsmittel - nicht nur zum Programmieren 


Für den 6-64 


KLICK — 


KLICK istein außergewöhnliches Hilfspro- 
gramm. Es ist ein Paket mit sieben vielbe- 
nötigten Funktionen und hoher Flexibili- 
tät. Das Besondere an KLICK: Es ist jeder- 
zeit mit einem Tastendruck verfügbar. 
Nach Verlassen von KLICK ist der Bild- 
schirm wieder so wie vorher- man verliert 
keine wichtigen Informationen. Program- 
miert wurde KLICK in Anlehnung an SIDE- 
KICK für den IBM-PC. 

Mit KLICK hat man jederzeit einen Ta- 
schenrechner, der alle nötigen Operatio- 


nen in drei verschiedenen Zahlensyste- 
men ausführen kann. Diese reichen von 
algebraischen bis zu logischen Funktio- 
nen. Falls nötig, kann das Ergebnis auch 
direkt in eine Eingabe übernommen wer- 
den. 

Der Notizzettel stellt einem eine Bild- 
schirmseite frei, auf der man beliebig Ver- 
merke machen kann. Dabei stehen einem 
alle Farben zur Verfügung und man hatei- 
nige Editiermöglichkeiten. Die Notiz bleibt 
erhalten und istauch später noch zugäng- 
lich. 

Die ASCII-Tabelle gibt alle darstellbaren 
Zeichen samt zugehörigem Code schnell 
aus. Zusätzlich wird der Code auch noch 
hexadezimal dargestellt. 

Das DOS-Support erlaubtes, Kommandos 
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an die Floppy zu schicken, oder das In- 
haltsverzeichnis ohne Programmverlust 
aufzulisten. 

Schließlich kann man die Rahmen- und 
Bildschirmfarbe ohne einen einzigen 
POKE setzen, auch in laufenden Program- 
men. 

KLICK erspart einem das Blättern in Hand- 
büchern, den Taschenrechner und eine 
ganze Menge von umständlichen Befeh- 
len. Dabei ist KLICK jederzeit verfügbar 
und verbraucht nur ca. 4,5 KByte Spei- 
cher. 


KLICK laden und starten 


Nachdem das Programm eingetippt wur- 
de, und sich auf Diskette befindet, kann es 
wie folgt gestartet werden: 
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LOAD "KLICK.OBJ",8,1 

SYS 36347 

NEW 

KLICK wird nun initialisiert. Ist dieser Vor- 
gang beerıdet, meldetsich der Cursor wie- 
der und Sie haben KLICK zur Verfügung. 


KLICK aufrufen 


KLICK wird mit einem einzigen Tasten- 
druck aufgerufen, nämlich mit der Kombi- 
nation Commodore-Taste + CTRL. Darauf- 
hin erscheint das KLICK-Hauptmenü. 
KLICK kann zu jedem Zeitpunkt und in je- 
der Situation aufgerufen werden. Es ist 
egal, ob gerade ein Programm läuft oder 
der Cursor blinkt. KLICK ist jederzeit ver- 
fügbar. 


Das KLICK-Hauptmenü 


Nach Aufruf von KLICK erscheint das 
KLICK-Hauptmenü, Von hier aus werden 


die einzelnen Programmteile angewählt. | 


Bei den Funktionen BORDER-COLOR und 
SCREEN-COLOR bleibt man im Hauptme- 
nü, während bei allen anderen Programm- 
teilen das Hauptmenü nicht mehr erreicht 
werden kann. 


CALG-Beschreibung 


Der Programmteil CALG stellt einen Ta- 
schenrechner zur Verfügung, mit dem alle 
wichtigen Rechnungen ausgeführt wer- 
den können, die beim Programmieren auf- 
treten. Er bietet Zahlendarstellung in drei 
Systemen, 12 Funktionen, eine Speicher- 
funktion sowie die Möglichkeit, ein Ergeb- 
nis direkt in ein laufendes Programm ein- 
zugeben. Man gelangt in CALG aus dem 
Hauptmenü über Fi. 

Der Taschenrechner arbeitet nur mit Inte- 
gerzahlen, d.h. Zahlen im Bereich von 0 
bis 65535. 

Die drei möglichen Zahlensysteme haben 
die Basen 10,2 und 16. Mit Fi schaltetman 
in das dezimale System. F3 wählt das bi- 
näre, und F5 das hexadezimale an. Ergeb- 
nisse werden immer in dem aktuellen Sy- 
stem abgezeigt. Dessen Einstellung wird 
unter der Ergebnisanzeige vermerkt. 

Mit der Speicherfunktion kann man einen 
Wert abspeichern oder wiederholen. Fö 


übernimmt den Wert, der gerade ange- 
zeigt wird in den internen Speicher. Mit F7 
wird dieser wieder in die Anzeige ge- 
bracht. 

Mit F6 wird CALC verlassen. Will man das 
Ergebnis, das in der Anzeige erscheint, in 
ein BASIG-Programm oder ein laufendes 
Programm übernehmen, so wird dieses 
mit F4 in den Tastaturpuffer übernom- 
men. Da dieser Puffer auf 10 Zeichen be- 
schränkt ist, können Binärwerte nicht voll- 
ständig übernommen werden. 

Zur Eingabe von Werten werden die Zif- 
ferntasten benutzt. Im dezimalen System 
sind 0 bis 9 erlaubt, im binären nur 0 und 
1. Arbeitet man im hexadezimalen Sy- 
stem, so kommen noch die Tasten A bis F 
hinzu, um Ziffern über 9 einzugeben. Nicht 
erlaubte Ziffern werden ignoriert. 

An Operationen stehen zunächst die 
Grundfunktionen zur Verfügung. +, =, 
* und / arbeiten wie bekannt. Bei auftre- 


“tenden Über- oder Unterläufen wird an der 


anderen Grenze des Zahlenbereiches wei- 
tergezählt. So ist z.B. 65535 +1 = 0. 
Pfundzeichen ergibt die Modulofunktion, 
die den Rest einer Division liefert. Mit = 
wird eine Kettenrechnung beendet, d.h. 
mit dem in der Anzeige stehendem Wert 
kann nicht mehr weitergerechnet werden. 
Pfeil nach links löscht die Anzeige, d. h.,es 
erscheint eine Null. 
Die folgenden logischen Funktionen ma- 
chen hauptsächlich Sinn im binären und 
im hexadezimalen Zahlensystem. 

at sign negiert alle Bits im aktuellen Wert. 
N bildet das Zweierkomplement des ak- 
tuellen Wertes. Bei vorzeichenbehafteten 
Integers bedeutet dies einen Vorzeichen- 
wechsel. 

0 liefert das logische Oder zweier Zahlen. 
Mit Pfeil nach oben erhält man das logi- 
sche Und. X schließlich stellt die Exklusiv- 
Oder Funktion dar. 


MEMO-Beschreibung 


Der Programmteil MEMO stellt einen No- 
tizzettel dar, auf dem Sie Vermerke fest- 
halten können, die Ihnen während der Ar- 
beit einfallen. Die „Zettelwirtschaft“ um 
den Computer herum hat damit ein Ende. 
Aufgerufen wird MEMO aus dem KLICK- 
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Hauptmenü mit F3. Beim ersten Start ha- 
ben Sie einen leeren Zettel vor sich, ande- 
renfalts erscheinen Ihre früheren Notizen. 
Sie können nun auf diesem Zettel frei 
schreiben und sind an kein festes Format 
gebunden. In.der letzten Bildschirmzeile 
sind alle Kommandos angegeben, mit de- 
nen Sie editieren können. 

Die Pfeiltasten haben die bekannte Wir- 
kung, den Cursor in die jeweilige Richtung 
um eine Position zu bewegen. Erreicht der 
Cursor den Zettelrand, so erscheint er 
wieder am anderen Ende. Sollten Sie also 
in der leizten Bildschirmzeile den Pfeil 
nach unten eingeben, findet sich der Cur- 
sor in der ersten Zeile wieder, 

RETURN wirkt ebenfalls wie gewohnt, in- 
dem es den Cursor auf den Anfang der 
nächsten Zeile setzt. Hier gilt ebenfalls, 
daß ein RETURN in der letzten Zeile den 
Cursor wieder in die erste Zeile bringt. 
Mit HOME kommen Sie in die linke obere 
Ecke des Zettels. Drücken Sie. jedoch 
SHIFT-HOME, also CLR, so wird der ge- 
samte Zettel gelöscht und Sie stehen 
ebenfalls links oben. 

DEL bewirkt das Löschen des Zeichens 
links vom Cursor. Der Rest der Zeile wird 
einschließlich des Cursors um eine Posi- 
tion nach links verschoben. INST fügt ein 
Leerzeichen an der Stelle ein, an der der 
Cursor steht. Der Zeilenrest wird um eine 
Stelle nach rechts geschoben. 

Alle anderen Eingaben erscheinen auf 
dem Bildschirm. Dabei werden auch Steu- 
ercodes befolgt. Sie können also auch in- 
versen Text eingeben, oder verschiedene 
Farben benutzen. Auch alle Grafik-Zei- 
chen, soweit auf der Tastatur erreichbar, 
können benutzt werden. Es lassen sich 
damit sehr übersichtliche Notizen erstel- 
len. 

Verlassen wird MEMO mit F6. Sie befin- 
den sich dann genau an dem Punkt wie- 
der, an dem Sie KLICK aufgerufen haben. 


ASCII-TAB-Beschreibung 


Der Programmteit ASCH-TAB: stellt eine 
ASCII-Tabelle mit allen darstellbaren Zei- 
chen zur Verfügung. Er ersetzt das Nach- 
schlagen im Handbuch, wenn man den 
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Code eines bestimmten Zeichens benö- 
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tigt. 

Von KLICK-Hauptmenü wird die Tabelle 
mit F5 aufgerufen. 

Es wird nun eine Tabelle der Zeichen von 
32 bis 127 ausgegeben. Mit der Taste Fi 
kann man zwischen den Zeichenberei- 
chen 32 bis 127 und 160 bis 255 umschal- 
ten. 

Zu jedem Code wird das entsprechende 
Zeichen, der dezimale Code und der hexa- 
dezimale Code ausgegeben. Man hat also 
jede Möglichkeit, sei es, daß man zu ei- 
nem Zeichen den entsprechenden Gode 
braucht, oder wissen will, welchem Zei- 
chen ein bestimmter Code entspricht. Ne- 
benbei hat man auch noch eine (aller- 
dings eingeschränkte) Dez-Hex-Umrech- 
nungstabelle zur Hand. Allerdings sollte 
man hierfür doch besser den Taschen- 
rechner benutzen. £ 
Verlassen kann man die Tabelle mit F6. 
Man ist dann wieder an dem Punkt, an 
dem KLICK aufgerufen wurde. 


DOS-SUPPORT-Beschreibung 


Mit dem Programmteil DOS-SUPPORT 
können Sie jederzeit Kommandos an die 
Floppy schicken, das Directory auflisten 
und den Fehlerkanal lesen, ohne, daß $ie 
Files öffnen müßten oder Ihr BASIG-Pro- 





gramm verlieren soliten. 

Vom Hauptmenü wird der DOS-SUPPORT 
mit F7 aufgerufen. Daraufhin erscheint 
das Kommandofenster. 

Sie können nun Kommandos an die Flop- 
py eingeben und mit RETURN abschicken. 
Eine Zeile unter dem Kommandofenster 
wird dann die Fehlermeldung ausgeben, 
die die Floppy meldet. 

Mit Fi kann das Directory gelistetwerden. 
Eserscheintin der gewohnten Weise, aber 
ohne Programmverlust. Mit einem Tasten- 
druck kommt man wieder in die Komman- 
doebene, 


Mit F3 wird zwischen Laufwerk 8 und 9 


hin- und hergeschaltet. Bei nicht ange- 
schlossenem Laufwerk 9 darf F3 nichtbe- 
nutzt werden. 

Verlassen wird der DOS-SUPPORT mit F6. 


BORDER-COLOR-Beschreibung 


Diese Funktion ist sehr einfach. Sie schal- 
tet nur die Rahmenfarbe weiter. Der Vorteil 
davon ist, daß Sie keinen POKE brauchen 
und auch in einem schon laufenden Pro- 
gramm noch die Farbe ändern können. 
BORDER-COLOR wird vom Hauptmenü 
mit F2 aufgerufen. 


SCREEN-COLOR-Beschreibung 
Diese Funktion entspricht der BÜRDER- 


COLOR-Funktion, nur daß hier die Bild- 
schirmfarbe weitergeschaltet wird. Sie 
wird mit F4 aufgerufen. 


KLICK-OFF-Beschreibung 


Mit KLICK-OFF (wird vom Hauptmenü mit 
F8 aufgerufen) wird KLICK ausgeschaltet, 
d.h. Sie haben KLICK nicht mehr auf Ta- 
stendruck zur Verfügung. 

Ein Neustart von KLICK ist direkt danach 
mit SYS 36347 möglich. Sollte aber der 
Speicher verändert worden sein, insbe- 
sondere durch Stringzuweisungen, kann 
der Rechner nach diesem Kommando ab- 
stürzen, oder sich abnormal verhalten. 


Sneicherlage von KLICK 


KLICK liegt am oberen Ende des BASIC- 
RAMs, Der belegte Speicherbereich geht 
von 36347 bis 40959. Er ist für BASIC 
nicht zugänglich, solange KLICK aktiv ist. 
Weiterhin werden zur Speicherung des 
Bildschirminhalts, des Farb-RAMs und 
des MEMO-Bildschirms vier KByte ver- 
braucht. Dazu wird das RAM ab 40960 
verwendet, das unter dem BASIC-ROM 
liegt. 


3500 REM HEHHHN HIERHER HIERHIN RN 

3510 REM * EL ECK %* 

3520 REM * tC) R. TOL.KSDORF * 

35350 REM * (BASIT-LOADER FB.) * 

3540 REM FRHHR HEREIN RAR HERRN 

3550 REM 

3551 POKE 56,128: PRINT"ISBITTE WARTEN ICH LESE DATA-ZEILEN !" 
3560 Z=5000-1:B=9 

3580 READ A# 

3590 1=1:5=0: Z=Z+1 

36500 X$=MID# (A&,1,2) 

3605 IF X#="--"THEN IS6H30 

3610 B=B+1:60SUB 4000: I=I+2:8=(5+X) AND 255 

3615 POKE 36347 +B-1,X 

3620 GOTO 3400 

36430 I=I+2: X$=MID$ (Ar, 1T,2):G05UR 4000 

3640 IF X<>S THEN PRINTıFRINT"EBr#* FEHLER IN ZEILE "Z=zEND 
3650 IF B< 4612 THEN 3580 

3660 PRINT:PRINT"ERDATEN WURDEN EINGELESEN !" 

3670 PRINT"BKLICK IST AKTIV !":5Y5 36347: NEW 

4000 X=0:FORl=1 TO LEN (X$) =: XO=ASC (MIDS (X$ ,U,1)) :X=16#X+X0-48+ (X0>64) #72NEXT u 
4001 RETURN 
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20535749544348202020443620454E44002020202020202020202020202020--85 
202020202020202020202020202020202020202020202020200D00A5050A0A--EB 
18650618650360A9088D219C20229C20488E2053BEAFEFAOFAZOLEAB20S3BE--E9I 
AFOBA0O9FB201EAB2053BEAFOBA09B20 1EAB2053BEAF2DAOFB2O1EARZOSSBEAF--56 
OBAO9B20 1EABZOSSBEAF2DAOFB201EAB2053BEAF4FAOIB201EAB205SBEAF71-—62 
AO9B201EAB20488E2053BEA993A09B20 1 EABZ04BBE2053BEAFBBAOFBZOLEAB--F7 
AFOLAE21ICAOOFZOBAFFAFOOAZLTAOFAZOBDFFAZ20120COFFA20120C6FF2OCF--BE 
FFCFODFOOAZOD2FFACDFIBAIOL2OLSFFZOEEFF20488E20538EA996A09B201E--AS 
AB20488E20538EA9I5A09BZO1EAB20488E20538EA9BBAOFBZOL1EABAF008505--B& 
AYEA2OD2FFZOEAFFFOFBCFODFO034C5C9HFAD21FCBSBAZOBIFFAFI6HFBSBF2093-- FA 
FFA2OOE405FO00EB403BDE79BZOABFFAGOZES4C4H1FF20OAEFFACABIBACOAFACF-—-DA 
BBFOOSACHFFFACOIFAACOAFACHBSFOOSACTIF9F20059A4C529I84C047ACFBAFO--5D 
O34ACBEFFAD21ICAI019D21FCAC24994C049AC9I1AFOOSACCAHFFIASOSDOOZACZA--CF 
99C605C9 1 DFOOAAFBEAOFBZOLEABAC1FFFIAFCSHAOFB20 1EAB20488E2055BEAF--05 
CBAOFR2O 1EABACLFFFACOAFAAGOSEOSADO034C2499C9I22FOFF7C9IZ0I0FSC7B0--06 
9004LCFAOFOEDIDE7FBE6054BAI9D20D2FF&B20D2FFASOSC9ILDFOOZAL1FFI720--03 
SZ8EAFBBAOFB2OLEABACLFFI60AIFI320D2FFAFIOOBSOSAFOLAE21FCA00020BA--BA 
FFAFOZA2CTAOFAZOBDFFA20120COFFA20120CAFF2OCFFF20OCFFF20OCFFF2OCF--EC 
FETOCFFF850420CFFF3505A503DO0AEH03AF1220D2FFAC54F9AAFF2ZODZFFAG--11 
O4AS50520CDBD3820FOFFA0041820FOFF20CFFFA6F00D039C922DOFS2OCFFFC9--FE 
22F00620D2FFAC7O9AZ2OCFFFC920D000620D2FFAC7DFAA4BAF2020D2FF6820D2--BC 
FFZOCFFFDOFBAFOD20D2FFASFODO034C31FA2053BEAILFAOFAZOLEABAF0120-—-DB 
LIFFZOCCFF2053BEAFDBAOFAZOLEABZOEAFFFOFBE024301D20424C4FA34B55--EF 
20465245450D000012505245535320414E59204B45599200B0606060606060--BE 
606060606060606060606060606060606060606060606060AE0D007D202020--98 
2020202020202020202020202020202020202020202020202020207D0DO0AB--95 
6060606060406060606060606060606060606060605060606056060606060B5-- FF 
000070204631 204449522E2020204643320444556494345202020463620454E--8& 
44207D0D00AD6060606060606060606060606406060606060606058060606060--FB 
&060606040BD0D00111111111D202020202020202020202020202020202020--4B 
2020202020202020202020200D00111111111D009D9D20209D0D9D009D20001 1--70 
1D1D1D1D1D1D1D1D1D1D1D1D1D1D1D1D1D1D1D1D1D1D1D1D1D1D1D1D1D0020--697 
20202020202020202020202020202020202020202020202020202020202020--E0 
202020202020202020202020202020202020202020202020202000A9008503--71 
&D8802790309D88504A9008505AFABB506204AFCADBB028504AI00850SAFAL--ZA 
B506ACAAICAHSO1 ZIFEOFOHBSO 1 AZ0O4A000B1059103CBDOFFESO4ESOSCADOFO--AO 
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5119 DATA A50109078501602CFDIFZ00B4BASFLAFDBFOORSBAES LEAZOEAFFACSLEACEFD- -75 
5120 DATA FFBA489848A50129FE09068501A203B503IDOOBOLA1OFBASF13BDOABOAZUFBS--BE 
5121 DATA 5C9DOSBOCAL1OFSASFOBD1S5BOAZ06&B5I49D1ZSROCALOFBASICHD1DBORSASEDIE-—-BR 
5122 DATA BOASACBDI1FBOASADEDZOROAZOFBSBEFD21BOCALOFBA22DBSC7FID31BOCALOFB-—-03 
5123 DATA AZOBBSFF9IDSFBOGALOFSA2IDBDSFOZIDABBOCALOF7A20OZBDBS029D8IB0OCAL1O--D7 
5124 DATA F7ADF2028D08CBOADASC2EDBEDBOAZSSBDOOOZFDBEBOCALOFFASO109078501R9- 67 
5125 DATA 008505A7ACBS04AI00B59EADBBOFRS0HZOHFAFLCAIOOBSSOZAFABSTOAADTHOZZ2I--EC 
5126 DATA 0309D88506204AITLADBBOZOFBOABAFOOAAFADFLEAFZEFOOLLBEBEOLADOFSAF--ED 
5127 DATA FFFISDY204BHEAFIFAAOFEZOSOBEAPGAAOFFZOSOBEAID7AOFFZOSOBEAFIOFAOFF--- FA 
5128 DATA 20508EAFLEAOIF2ZOSOBEAY3ZZAOFFZOSOBEAFABAOIFZOSOBEAFSDAOFF2050BE--BC 
51279 DATA A9I72AOIF2OS508EAIBTAOFFZISOBEAIFLAOIFZOFOBEAFID7AOFF2ZOS0BEAIEAAO--37 
5130 DATA FF20508EA9B1AOFF2050BE2OEAFFFOFBEFBSFOOSACHFID2Z0229C205DBEALSA-—- 74 
5131 DATA JECIBAFOOZATCEHID2042I54CSAIECFSTFOOS4CEF3FD2055974ACIAIECIBBFOOS--SE 
5132 DATA 4C009E204DIB4LCSAIECFBFFOOSALCLOFEEEZODYACEAFIDSESZAFECFBAFOOFACZO--BF 
5133 DATA JEEE21DO4CCAID4ACZAIECIGBFOOZ4CZAIEACTAFECISCFO034C379EEEFEFFAC- TOD 
5134 DATA 3SAIEACCAID2022FC A501 2IFEO09I04850 1A203BDOOBOISOFZCALOFEADOABOBSLF-- 3A 
5135 DATA AZOFBDOSBOISSCCALOFBAD1SBOBSFOAZOABD16BOF5F74CAL1OFRADIDBOSSFCAD--DB 
5134 DATA 1EBOBSASADLFBOBSACADZOBOBSADA2OFRBD218B0975BACA1OFBAZZDRD31B075C7--77 
5137 DATA TA1OFBAZOBBDSFBOFSFFCALOFSAZ1LDEDARBOFDSIOZCALOF7A2OZEDBFBOIDSS--CD 
5138 DATA 02CA10F7ADBCBOSDF202ADINBOBDASOZAZSBRNBEBOFDOODZCAIOF7AS010707-—-16 
5139 DATA 8501ADFEIFFO14AFI008537AFIA0B5387B8AF3ZLBD1A4OFAFEABD 1503IBABABSBAA--ET 
5140 DATA 48EEFDIFACZ31EABNAOA0650505050505050605,0L0L0A050AE0ODOOT7D124551F72-- FC 
5141 DATA 2043414C4320202020202020207D0D007D1246433922040D454D4F2020202020--45 
5142 DATA 2020207D0D007D1246359220415343494920544 1422020207D0D007D124537--07 
5143 DATA 9220444F5320535550504F5254207D00D007D1246527220424F324445522043--73 
5144 DATA 4F4C4F527D0D007D124634922053435245454E20D434F4C4F327D0D907D1248--4C 
5145 DATA 369220454E442020202020202020207D0D007012483892204B4C4943482D4F-—-12 
5146 DATA 4644642020207D0D00AD6040506050606050505060504050&0BDODO0O7DABALAF--ER 
5147 DATA 434B204D41494E4D454E55457D0ODO0ABS065060505050506040806E 0b 0A0A0A9r- 22 
5148 DATA B300D0070313938352042592020524F424552547D0D000000--67 










































































Nach dem großen Erfolg von Laser Basic 
kommt nun auch der Schneider-Benutzer 
in den Genuß, seine eigenen Spiele zu ent- 
wickeln und diese an den Mann zu brin- 
gen, ohne die Sorge haben zu müssen, ge- 
gen Urheberrechte zu verstoßen. Compi- 
lierte Laser-Basic-Programme können 
nach Aussagen der Firma 0ASIS zusam- 
men mit der MC-Libary frei verkauft wer- 
den. Wie auch bei der C-64-Version las- 
sen sich mit dem Laser Compiler auch 
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Standard-Basic-Programme compilieren. 
Die Ablaufgeschwindigkeit eines Basic- 
Programmes kann somit stark erhöht wer- 
den. Ein kleiner Nachteil ist, daß die Syn- 
tax einiger Befehle vor dem Gompilieren 
etwas geändert werden muß und nur Inte- 
ger-Variablen verdaut werden. Dies dürfte 
jedoch für Spiele-Programmierer kein 
Hindernis sein, sich diesen Compiler zuzu- 
legen, noch dazu für den Preis von ca. 
69 DM, 
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Einem Geheimnis auf der Spur 












































In der C-64-Szene geistern bereits die er- 
sten Raubkopien von dem Commodore- 
64-Betriebssystem „GEOS" herum, das 
eigentlich ganz hervorragend kopierge- 
schützt ist. Warum eigentlich? Da doch je- 
der Käufer des neuen G-64 „GEOS“ mit- 
kauft, ist doch der Absatz für das Softwa- 
rehaus so gut wie gesichert. Andererseits 
erschwert es dem Benutzer, der ;,‚GEOS" 
häufiger anwenden möchte die sicher 
notwendigen Kopienherstellung. 

Im übrigen ging es uns beim ersten Test 
nicht besser, als einer Vielzahl von Raub- 
kopierern, die zwar ein tolles Programm 
besitzen, das jedoch ohne Anleitung so 
gut wie wertlos ist. Auch unsere offizielle 
Commodorediskette mit der GEOSversion 
1.1. kam leider ohne jede Anleitung, auch 
eine englische war bisher nicht zu bekom- 
men. 

So war die Benutzung von „GEOS“ zum 
Teil eher mit einem Adventure-Spiel zu 
vergleichen. Das Hauptproblem aber, daß 
mußten wir leider sofort feststellen, lag 
nicht an der fehlenden Anleitung, sondern 
an der Empfindlichkeit der Schnellader- 
routine; die über das Pulldownmenü gela- 
denen Files wurden zwar geladen; aber 
anstatt zu starten, kehrte GEOS wieder un- 
verrichteter Dinge in das Directorymenü 
zurück. 

An dieser Stelle wollten wir eigentlich 
über GEOpaint berichten, aber die Vielzahl 
von Problemen mit GEOS zwang uns, erst 
einmal auf weitere Informationen von 
Commodore zu hoffen (die neue Version 
des 0-64 war übrigens trotz gegenteiliger 
Ankündigungen bis zum Redaktionster- 
min noch nicht in den Geschäften). 

Des Rätsels Lösung: unsere GEOS Version 
war bereits eine Kopie und ist dank des 


außerordentlich guten Kopierschutzes 
nicht mit dem Original identisch und nur 
begrenzt lauffähig - eben eine echte De- 
monstrationsversion. Mit einem kleinen 
Trick allerdings bekamen wir dann jedoch 
GEOpaint dennoch zu laufen. Die Kopie 
von der Kopie wies an einigen Programm- 
stellen weniger Macken auf als die Kopie, 
und so konnten wir schließlich doch in 
den Genuß von GEOpaint gelangen. Und 
das war dann auch eine Riesenüberra- 
schung! GEOpaint demonstrierte dank 
GEOSmenü herrliche Benutzerfreundlich- 
keit, das selbst die KOAlLAbenutzerfüh- 
rung in den Schatten stellt. Wir waren im- 


Kreise übereinander lagern will. Das geht 
natürlich nicht im HIRES-Modus, da pro 
8x8 Pixelfeld immer nur eine Farbe ge- 
wählt werden Kann. 

Eine weitere tolle Eigenschaft, ist die Tat- 
sache, daß GEOpainteine Grafikseite bear- 
beitet, die größer ist als der Bildschirm. 
Daher wird das Bild bei der Bearbeitung 
gescrolit, indem die neuen Bildschirmin- 
formationen blitzschnell von Diskette 
nachgeladen werden. So’ etwas habe ich 
für den C-64 noch nicht gesehen. Ein 
Nachteil, der hierraus entsteht soll nicht 
verschwiegen werden: durch das beson- 
dere GEOSformat des Bildfiles ist es wohl 
vorläufig unmöglich, GEOS-Gemälde in 
eigenen Programmen einzubauen. Dies ist 
ein Punkt, der auch eine grundsätzliche 
Schwäche des gesamten GEOSsystems 
darstellt: die Struktur dieses Betriebs- 
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mer wieder verleitet, GEOpaint mit dem 
KOALApainter zu vergleichen, obwohl 
dies an sich nicht zulässig ist, denn es 
handelt sich hier schließlich um grundver- 
schiedene Programme. Während Koala- 
painter im Multicolormodus arbeitet, nutzt 
GEOSpaint konsequent den HIRES-Modus 
mit der für den C-64 höchstmöglichen 
Grafikauflösung. Das merkt man späte- 


stens, wenn man verschiedenfarbige 
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systems ist wenig durchschaubar und ge- 
gen Einblicke durch einen außerordent- 
lich guten Kopierschutz gesichert. Ein sol- 
ches Betriebssystem könnte jedoch nur 
sinnvoll sein, wenn viele Benutzer in der 
Lage sind, damit auch zu programmieren. 
Und dies wird mit Sicherheit noch etwas 
dauern. (uk) 


PS. Bitte schreibt uns über Eure Erfahrun- 
gen mit GEOS! 
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3-D Labyrinth 


Tollegrafische Realisierung und die immer 
wieder spannende Spielidee von Pac-Man 
verbinden sich hier zu einem Game der 
Spitzenklasse. 

Sie befinden sich in einem 3-D Labyrinth 
und müssen alle Punkte, die sich auf dem 
Boden befinden, aufsammeln. Aber Vor- 
sicht: in den Gängen irren Geister herum, 
die Sie nicht berühren dürfen! Andernfalls en 
verlieren Sie eines Ihrer einsgesamt $ = 
Computerleben. 

In der rechten unteren Bildecke befindet 
sich ein Radar, auf dessen Bildschirm $ie | 
das Labyrinth in Kleinformat und in Auf- 








ware 





“Tean’t understand why 
Ohr getuway Bi taking 
so damned lung.“ 





sicht sehen können. Allerdings sind hier 
die noch einzusammelnden Punkte nicht 


eingetragen; es soll Ihnen janichtzu leicht | Spielrunde. 








geschrieben, das so schnell keine Lange- 
gemacht werden. Haben Sie alle Punkte | Hier wurde mit relativ kurzen Programm- | weile aufkommen läßt. 


„gefressen“, gelangen Sie in die nächste | routinen ein wirklich spannendes Spiel | Viel Vergnügen! 
C&4 LISTING MIT CHECKSUMMEN {C v1.0) TRIGGER! "s IFPEEK 1197) =S40THENPOKESP+21 ,. 1 
: G0T02009 <B1> 
1 REM Wire tleERHIHREN x232> 165 GOT0169 242> 
2 REM # 3-D LABYRINTH * “239> 200 IFPEEK (145) =247THENT=N1 :N=. s0=WıSF=. 
3 REM # LIEBERÄRBEITET VON * <a7> :GOTD100 <160> 
4 REM # CONTRA-BYTE * <105> 205 IFFEEK (145) =253THENT=N2:M=. s0=W: SF=. 
5 REM # 1986! * 2427 :GOTO100 <147> 
6 REM HRRHHHSHHH EN <23773 210 IFPEEK (145) =251THENT=NS3:M=. : 0=W: SF, 
10 POKESS280,0:POKES3281 ,0:G0T0O3009 <247> :5N0TN10O 146? 
15 PRINT"tELEARY"=DIMAA (19,22) zW=1sLL=13 215 IFPEEK (1451 =254THENT=NA: SF=W: O=W: GOT 
356: 60101200 : <B> 0100 E <189> 
100 IFRND(W)<.F4ANDM=. THEN225 <158> 225 IFO=. THENZ00 <x23> 
1053 IFMTHEN115 <120> 227 0=.:0NTGRTO250,235,240,245 x14> 
105 C=INT {RND (W) #5) +2: POKESP+39 „TCz IFPEEK 230 XeX+lı IFAZCKZVI=SWTHENX=X Hr GOTO7BO <151> 
(1194) -32THEN225 <93> 234 CH=45: N1=2: N?=3+ NS=4: N4=WaFL=U; Beh: F 
110 M=1:POKESP „90: POKESP+1 „145: POKESP+23 =W: POKESP+8 ,PEEK (SP+8) +2: G0T0250 <158> 
‚252: POKESP+29 ,252 <117? 235 YaYı+lıa IFAZ EX, YI=WTHENY=Y-W: GOTO7BO “198> 
112 IFPEEK (SP+21)=22THENPOKESP+21,23 <143> 237 CH=54: N1=3:2 N2=4: NS=W: NAJ=2:FL=. ıD=Ws F 
113 IFPEEK (SP+21)=30THENPOKESP+21 ,31 <108> =W: PDKESP+9 „PEEK {6P+9) +2: GOTN250 997 
114 6010225 <201> 240 X=X-W: IFAZCK,YISWTHENX=X +: GOTO7BO <144>- 
115 POKESP,78:POKESP-+1 ‚180: POKESP+23 ,255 244 CH=95: N104: N2=W: NS=2: N4=3: FL=W: DW: 
ı POKESP+29 „253: M=2: G0OT0225 <24>. F=W: POKESP+8, PEEK (8P+8) -2: GDT0O250 <ar> 
150 M=.ı5F=.:IFPP=.THEN154 <134> 245 Yay-W: IFAZOX,YI=WTHENY=Y+WrGGTO?7BO <171> 
151 S=S+100:PP=. :POKESP,.:IFFEEK (SP+21)= Sr 249 CH=54:N1=W: N2=2: N3=3: N4=4: FL=. ı DeWi 
S1THENPOKESP+21 „30 $13> F=-W: POKESP+F „PEEK{S5P+9) -Z 4 <161> 
152 IFPEEK (SP+21)=2STHENPOKESP+21 ,22 <173> 250 5Y530000:PRINTA$: POKESP+21 „22: POKESP 
153 60SUB1050:PRINT"CHOHE DOWN2I1 RIGHTF} +24= <174> 
"5: GOT0400 <215> 252 IFAX(X,V)IS2THENADEW:ARON, Y)I=- <201> 
154 GOSUB9FSO: POKELL ,32:LL=L1.—1> IFLL—1331 255 IFAZIX,VI=3THENAP=W:RAIX ,Y3 =, ıPP=126 ' 
THEN400 s55> OSUB1100 <355> 
h 150 PRINT"{YELLOH HOME RVSON RIGHTSYGAME 250 IFAXIX,YI=4THEN7&O s1> 
j {SPACE3}OVER" ß “71? 262 IFFLTHEN3SO <43> 
161 PRINT"{DOHN YELLOW RIGHTSYIHITISPACE} 2655 IFAX(X+F,YI-WTHENPRINTBS “h7> 
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270 IFAX(X-F,Y) -WTHENPRINTCS 
275 IFA%Z(X,Y+D)=WTHENPRINTFS} G$:60710295 

282 IFA%.(X ,V+D#2) =WTHENPRINTH$ 

285 IFAX (X+F ‚Y+D) -WTHENPRINTDS 

287 IFAXCK-F ,Y+D) -HTHENPRINTES 

271 POKESP+42,7: IFAX (X ,Y+D)=20RAZ (K,Y+D) 
=STHENPOKESP+21 ,30 

292 IFR% (X,Y+D) =3THENPOKESP+42,6 

273 POKESP+40,75 IFAY (X, Y+D#2)=20RAX (X, Y+ 
D#2) =STHENPOKESP+2, 91 

274 IFAX(X,Y+D#2)=STHENPOKESP+40,6 

295 IFSFANDN=2THEN15O 

297 IFSFANDM=WTHEN1800 

298 BOT0400 

350 IFA%. (X, V+F)-WTHENPRINTBS 

355 IFARIX,V-F)-WTHENPRINTCS 

360 IFAZ(X+D,VI=WTHENPRINTF$; 8$:60T0383 

367 IFAX(X+D#2,Y)=WTHENPRINTHE 

370 1FAX(X+D,Y+F} -WTHENPRINTD$ 

375 IFAZCX+D,Y-F) -WTHENPRINTES 

379 POKESP+42,7: IFAX(X+D,Y)=20RAX (X+D,Y) 
=3ZTHENPOKESP+21 ,30 

379 IFA%(X+D,Y) SSTHENPOKESP+42,6 

380 POKESP+40,73 IFAX(X+Du2, VI=ZORAK (X+Da 
2, V) =STHENPOKESP+2,91 

361 IFA%(X+D#2,Y)=STHENPOKESP+40,6 

383 IFSFANDM=2THENISO 

385 IFSFANDM=WTHEN1B00 

400 IFSF=. THENM=. 

405 IFADTHENDC-DE+1: PRINT" CHOHE DOWNZ RI 
GHTZB3 179-DE"{LEFT. SPACE} "ı6DT0440 

435 GOTO200 

4530 AD=. 3 IFDC=178THENPRINT"{HONE RIGHTZ 

RVSONIMAZEISPACEICLERRED! TDOHN LEFTIO DOG 
HR LEFTFSTANDISPACEIBY!"SGOTDLOOO 

445 GOSUBF00:S=S+10: PRINT" {HOHE DOWN21 R 
IGHT33"5:60T0200 

500 FORY=1T022: FORX=1T019:READD: AK (X,YI= 
D:NEXT:NEXT=X=10: Y=17 

502 Xi1)=9%:1(DI=10:X (Hella Y(l)=11ıYl2)= 
11: Y(De11:CtV=-3HCt2I=5:C (FI =7:DC=O 

505 N1=4: N2=1:N3=2:N4=35AX (X, Y)=0:De4: PD 
KES3280 ,0: PIKES3ZE1,0 

510 V=54273: VV=V--1: POKES4296, 15: POKES427 
7,250: POKE54278,210 

520 POKES4276 ,33: GOTD1500 

7&0 1FX>1STHENX=3: POKESP+B,PEEK (SP+8) -30 
: 6010400 

770 POKESP+8,PEEK {SP+B) +30: X=17:B0T0400 

780 POKEV ‚203 POKEVV, 15: FORZ=1T01003 NEXT: 
POKEV, . :POKEVV, „2 GOTO200 

800 DATAlyiglslyipholpleiptuinipistnisi, 








10801,1 ‚2.2, 2,2, 2,2,2, 2,1 2,2,2,2,2 ” 2.2, 
2,1 
805 DATA1,2,15142,1,15152,1,251531,1,2,15 
1,241, 19322 y 12221317 1y 2, 1m 2ulalpinZlle 
spe 
BiO DATA1,24, 24 2,2524 24727242452432,23242324 
2,2, 1y1lp2z1e1n2p1H2p1uis1glp1,2u1p2,1pi, 
2,1 
815 DATAL ,2,2,2,2,1,2,2,24,15,252,23132,2, 
221,1, 2 1p1y 24 101,12, iolntnZaini, 
1,1 
820 DATA! ,1,1,1,2,143232, 242723232713 241r 
1y1g1y1,15151472,15 25141, Os 11,2, 1u@slrlr 
1,1 
825 DATA4,4,0,0,2,2,2,1,0,0,0,13252,2,0, 
O,A5As 1 iy1H1a2n12giuiglatsinZuinZuiel: 
4,8 
830 DATAL,1,1413251,2,25 23252324 2s ty Zur 
1z1yty1g1y1y1y2gly2ylolniyisiy2alnZulnl, 
1,1 
835 DATA1y2524,2,212,2,252,142,2,2,2,2,2, 
2uZ2ylalyZalsiy2elsiyls@nig2ukrininzui,d, 
2,1 


*93> 
<87> 
<B9> 
<171? 
<176> 


<229> 
<232> 
<240> 
<96> 
x5> 
<104> 
<108> 
<110> 
<138> 
1697? 
«427 
<B> 
<40? 


<152> 
<109> 


<63> 
<x31> 
933 
«1972> 
<117> 
<1> 
<z241> 
<8&> 
$150> 
<105> 
<149> 
<2235> 


<53> 
<241> 


<1687 


<a9> 


<229> 


<244> 


<161> 


<14> 


x977 


<202> 


4977 


<14> 


<19> 


840 DATA1,3,2414242525 232425 23247252412H1» 
20341414142, 1,210 2u1nin141n1n2,142,1224 
1,1 
845 DATA1,2,2,242,152,252,1,2,242,1»2,2, 
22, 1nZuieleielaindn2inZsielniniehnde 
2,1 
B50 DATA1,2,2,2,2,2,2,2,2524, 24242525242, 
EHER RR 0ER DoR De Une Ws Ben, De Dee Uo BoD Ro; WG cap 1 vr wen 0 
1,1 


900 FORZ=5TO50STEPF: POKEV ,Z:POKEVV,Z-3:N 
EXTıFORZ=60T020STEP-12 

905 PDKEVV, Z: POKEV „Zı NEXT:POKEV, , :POKEVV 
„.- sRETURN 

950 Z=140 

960 FORZ=ZTOZ-20STEP-2: POKEV „Z:POKEVV ,Z- 
10: NEXT=POKEY, » :POKEUV, . 

970 FORZZ=1T050: NEXT Z=Z+5: IFZ>2STHENF60 
980 RETURN 

1000 FORZ=1107:POKEV, 100:POKEVV „90: FORZZ 
=1T050: NEXT+POKEV, .ı POKEWV,. 

1010 FORZZ=1T090:NEXT:NEXT: GOTO1700 

1050 FORZ=10TO150STEP2:POKEV ,Z# POKEWV 16 
O-Z:NEXT:POKEV, «: POKEW,. 

10&0 FORZ=1T03:POKEV, 150: PÜKEVV, 1302 FORZ 
Z=1T050:NEXTıPOKLV, .:POKEWV ,. 

1070 FORZZ=1T070:NEXT:NEXT=RETURN 

1100 FORZ=1TOS:POKEV, 100: PDKEVV ‚60: FORZZ 
=1T0100: NEXT: POKEV „60: POKEW, 100 

1110 ‚FORZZ=1T0100: NEXT: POKEV,. :POKEWV 4.8 
NEXT=RETURN 

1200 PRINT"{YELLOW RIGHT13 DOWNZYS-DISPA 
CE>ILABYRINTH® 

1210 PRINT"{LIG.BLUE DOWNZ RIGHT13+UEBER 
ARBEITET" 

1220 PRINT"CPURPLE DOWN2 RIGHTL4FCONTRA- 
BYTE" 

1221 PRINT"{CYAN RIGHT DOHNZ2 RIGHTI7 DOK 
N}1986!":60T0500 

1500 REM ESTABLISH STRINGS 





1505 As=" CHOHEFNIDOUNFNTDOUHNISTDOHNFSAIDO 


HN>NEDOHN3 \CDOHN? \LDOHNI'ADOHN?NÄDOHNI NL 
DOHN?NEDOHN?NIDOHN}TDOHN?NDOHN?\CDOHN} 
\TDOHN>"ADOHNYCDOHMISDOHNINLLEFT2OF" 
1510 As=As+" Ur} /TUPY /AUPI /TUPI TUPH TU 
P3 /KUP> /TUPY /LUP3 CUP} /LURI /LUP3 /AUP} TU 
P3 /LUPIFLURISTUPI /LUPI FKUPIZ" 
1515 B$="CHONE DOHN2. RIGHT2} {DOMN LEFT)I 
I {SPACE DOWN LEFTZM __ÄDOHN LEFT3}| {SPAC 
E} I(DOHN LEFT3>| (SPACE) IKDOWN LEFT3H {SP 
ACE} \CDOWN LEFT3>| (SPACE> |KDOWN LEFT3>| € 
SPACE} HDOHN LEFT3}| (SPACE) DOWN LEFT3} 
| {SPACE} !" 
1520 B$=B$+"{DOHN LEFT3>| TSPACE> |CDOWN L 
EFT3}| {SPACEI KDOHN LEFT3I {SPACE> \KDOUN 
LEFT3H {DOWN LEFT3} {SPACE DOWN LEFT2 
Ey] ” 
1525 C$="{HOME DOWMNZ2 RIGHT17}> ICDOHN LEFT 
2 SPACE} IKDOHN LEFT3)___KDOWN LEFT3}| (SP 
ACE} ICDOWN LEFT3>| (SPACE) KDOWN LEFT3>Y € 
SPACE> {DOWN LEFT3}| (SPACE> KDOHN LEFT3) 
| ASPACEI |" 
1530 C#=C$+"{DOWN LEFT3>| {SPACE} DOWN L 
EFT3N {SPACE} DOWN LEFT3I| {SPACE> DOWN 
LEFT3» (SPACE) KDOWN LEFT3>| {SPACEI IKDO 
HN LEFT3> KDOHN LEFT2 SPACE} KDOWN LEF 
T} f 
1535 D4="(HOME DOWNS RIGHTT> LL{DOWN LEFT. 
23 | KDOHN LEFT2} | KDOHN LEFT2> T" 
1540 E$="(CHONE DOWN8 RIGHTI1>] {DOWN LEF 
T2H | {DOHN LEFT2>\ | {DOWN LEFTZIT* 
1545 F$="{HOME DOWN4 RIGHTS} £R 
ISHTI" 2 FORZ=1TOS:FS=F$+"CDOHN LEFTI2Y HKS 
PACEION " 
1550 6#=6$+" (DOHN LEFT123 IESPAGEION "N 
XTıGs=B$+"{DOHN LEFTII} 





















































Sompute mib 


“a4> 
<129> 


<218> 
<10> 


<105> 
<202> 


<111> 5 
<241> 
<101> 


<226> 
<225> 


<31> 


<58> 
<131> 


<237> 
<188> 
<201> 
<46> 

<225> 


<52> 
<899> 


<119> | 


<1351> 


«128> 


<206> 


<249> 


<a7> 
<153> 


<225> 


<164> 


x239> 
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1555 HS="CHOHE DOUNS RIGHT?3 __{DOHN LEFT 

3) KSPACEZH TDOHN LEFT4> KSPACEZY TDOUH 

LEFT3I Su, 

u PRINT"ICLEAR DOHNZI RIGHTZ WHITEISC 
s"g 

1570 PRINT"{HOME DOHNZ RIGHT23YDOTSTSPAC 

EZIREMAININGTDOHN LEFTI YELLOW>17B"3 

1575 PRINT"{HHITE DOHNZ LEFTSILISPAGEITT 

SPALEIVISPACEIETSPACEISTDOHN LEFTT YELLO 

MH SPACES5 DOUNS LEFTT WHITEIRTSPACEFATSPA 

CEIDISPACEFALSPACEIR"S 

1580 FORZ=1332T0LL: POKEZ ,B81.:NEXT 

1600 FORZZ=0T033:READZ=:POKES0000+227,Z:NE 

xT 

1605 DATA160,0,162,0,159,32,157,0,4,157, 

240,4,157,224,5,200 ,252,172 

1610 DATA20,208,239,232,136,192,0,208,25 

0,224,240,208,229,96,234 ,234 

1620 5P=53248: POKESP+21 „30: POKE20472,13: F 

ORZ=0T062:READZZ: POKEZ+832, ZZı NEXTZ 

1625 POKESP+4 , 243: POKESP+5, 176: POKESP+29 

253: POKESP+23 , 253: FOKESP+41 ,7 

1627 SYS30000: PRINT" {DOWN LEFTT. YELLOW} 

{HHITEY"SAS;ES 

1630 DATA31,255,252,16,8,4,22,235,180,22 

»235,180,16,0,4,22,190,180,16,13A 

1635 DATA132,30,235,188,2,128,160,124,18 

2,191,0,34,0,126,190,191,2,128,160 

16840 DATA30,170,188,16,9,4,22,235,180,18 

»0,36,26,190,172,16,156,132,23,235 

1645 DATA244,16,0,4 

1550 FORZ=7041T0765: POKEZ ,. 2 NEXT:POKE7&46, 

1:POKESP+8, 221: POKESP+9,168: POKE2044 ,11 

1655 FORZ=0T052: READZZ:FOKEZ+B9&,ZZSNEXT 

:POKE2041 „14: POKE2043 „14: PIKESP+40,7 

1660 POKESP+42,7:POKESP+3,147:P0OKESP+7,1 

70: POKESP+2, 971: POKESP+6,78 

1670 DATAO,0,0,0,0,0,0,255,0,7,253, 224,6 

3,255,252, 127 , 255,254 ,95,255,250,103 

1575 DATA255,230,120,255,30,127,0,254,12 

7,255,254,127,255,254,127 ,255,254,127 

1&80 DATA255,254, 127,255, 254 ,63,255,252, 

31 ,255,248,7,255,224,0,255,0,0,0,0,0,0,0 

1690 60101750 

1700 RESTORE:A$="":B$=A$: C4=As: D6=Ass Es 

A$tıF$=A$: G$=A$: HF=AS: IeAF 

1710 AD=. :DE=.:60T0500 

1750 FORZ=16320T016382: READZZ=: POKEZ,„ZZıN 

EXTı PODKESP, . sPOKESP+29 „252 

1760 POKESP+43,1:POKE2040 ,255:60T01810 

1770 DATAO,255,0,7,255,224,31,255,248,50 

„126,60,125,126,62,125,126,190,127,239 

1775 DATA254,127,247 ,254,127,251 ,254,127 

„247 ,254,115,255,206,115,8,142,120 

1780 DATA66,30,127,255,254 ,63,255,252,28 

„231,56,28,231,56,56,231,28,0,0 

1785 DATAO,0,0,0,0,0,0 

1800 POKESP+29 ‚253: POKESP+23,253; POKESP, 

79: POKESP+1,180 

1805 POKESP+21 „PEEK(SP+21)+1: IFPEEK (SP+2 

1)=32THENPOKESP+21 ,31 

1807 GOTO400 

1810 PRINT"{HONE DOHN9 RIGHTSIREADY”IFOR 

Z=1T0999: NEXT 

1820 PRINT"{HOHE DOWN9 RIGHT7 SPALE2IGO| 

| ":FORZ=1T0400: NEXT 

‚1830 -PRINT"CHOHE DOWN? RIGHTZ}Y\/"1GOT0O20 
































o 

2000 PRINT"{CLEARY" 

2010 PRINT"{RVSGN GREEN RIGHT DOWNZISTET 
SPALEIHABENTSPALE} THRETSPALEISTSPACEILEB 
EN{SPACE>VERWIRKT!" 

2020 PRINT" {RVSON RIGHT DOWN THRETSPACE) 
PUNKTZAHL{SPACEI IST: {SFACE RVSBFFY"S 
2030 FRINT"{DBHNZ RESON RIGHTISFMENUS IRV 
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«181> 
%153> 


<119> 


<13? 
<118> 


<217> 
<206> 
<218> 
<172> 
<20> 

<203> 
<85> 

<200> 


<182> 
“707 


<155> 
<131> 
<bö> 
<117> 
<&ß> 


«2537 
x244> 


<r5> 
<187> 


<18> 
<248> 


<1892> 
<134> 


«1807 
<a6b> 


2937 


<248> 
<B7> 


785 
“37> 
<S58> 
<245> 
«5977 


<248> 


programme 


SOFF}” 
2040 PRINT” 
eh 





2050 PRINT" {RIGHTZIATSPACEI=TSPACEINEUES 
XSPACEISPIEL”" 

2060 PRINT"{RIGHT2 DONNYB{SPACEI=TSPACEI 
ANLEITUNG" 

2070 PRINT"{RIGHT2 DONNICISPACEI=SPACEI 
PROGRAMM {SPACE} BEENDEN" 

2080 PRINT"{DEHN3 RIGHT RVSOH LIG.BLUEIW 
AEHLEN{SPACEFSIETSPALEIA „BISPALEFODERTSP 
ACEIC! ERVSOFF}" 

2090 BETA$: IFA$=""THEN2090 

2100 IFA$="A"THENRUN 

2200 IFA®="B"THENS000 

2300 IFA$="C"THENNEW 

2310 IFA$=" {SPACE} "THENZ2090 

3000 FRINT®{CLEARY"” 

3100 PRINT"{DOHN RIGHT1Z RYSON PURPLEISP 
IELANLEITUNG! {RVSGEFF" 




















3200 PRINT" {LIG.BLUEI3-D{SPACEILABYRINTH 
{SPACE>WRITTEN<SPACEHBY{SPACEFCONTRA-BYT 
E!"” 

3300 PRINT"{DOHN CYANISIETSPACEIMUESSENt 
SPACE} IN{SPACEIDIESEM{SPAGE:SPIEL „WIE{SP 
AGEFAUCH" 

3310 PRINT"BEILSPACEIPAC-MAN{SPACEIPUNKT 
EISPACEI IN{SPACEIETNEMISPACEILABVRINTH" 
3320 PRINT"AUFSAMMELN. ABER{SPACEIDIESEST 
SPACEFISTISPACEINICHT {SPACEIEIN-" 

3330 PRINT"-FACH,DENNESPACEFEINIBETSPACE 
IGEISTERESPAGEIDIETSPACE?SICHESPACEFAUCH 
» 


























3340 PRINT" IM{SPACE)LABVRINTH{SRACE}IBEWE 
GEN, KDENNEN{SPACE} IHNEN" 

3350 PRINT"LEBEN{SPALEIKOSTEN!" 

3360 PRINT"AMISPACEIRECHTENTSPACEHUNTERE 
N{SPACEFRAND{SPACE}DESTSPACE+BILDSCHIRMS 
[1 








3370 PRINT"ERSCHEINT{SPACEIEINTSPACEIRAD 
AR „AUF TSPACEIDEM{SPACEISIESPACEISICH" 
3380 PRINT"ALSCSPACEFWEISSENISPACEIPUNKT 
{SPAGE}WANDERNTSPACEHSEHEN. " 

3390 PRINT"DIE{SPACEIPUNKTETSPACEIDIETSP 
ACE>SIETSPACEIAUFSAMMELNTSPACEIMUESSEN, ® 
3400 PRINT"SEHEN{SFACEISIETSPACEIAUF SPA 
CEIDEMCSPACEIRADAR SPACE} JEDOCHTSPACEINI 
CHT, “ ; 

3410 PRINT"WEIL{SPACEIDASISPAREISPIELTSP 
ACEISONST{SPACEI ZUTSPACEHEINFACHTSPACEIW 
AERE!!" 

3420 PRINT"ES{SPACE3BEFINDENTSPACEISICHT 
SPACEFAUCHTSPACE VIER CSPAGEIBLAUEPLINKTE" 
3430 PRINT" IM{SPACE>LABYRINTH,DIE{SPACE} 
SIETSPACEIDANNTSPACEFEINMALTSPACEIVOR" 
3440 PRINT"DER{SPACE +BERUEHRUNG LSPACEIMI 
TISPACE}GEISTERN{SPALEFSCHUETZEN!" 

4000 PRINT"{RIGHT2 DOWN RIGHTI4?-TASTE-" 
4001 BETA$: IFA$=""THENA0OL 

4002 IFA$=" {SPACE "THEN4100 

4100 PRINT" ZLCLEART" 

4200 PRINT" (DOHWNZIHENN{SPACEISIETSPACEID 
ANN{SPAGCEFALLEISPACEHPUNKTETSPACEIBEFRES 





















































4210 PRINT"HABEN, KOMMEN TSPACEISIETSPACES 
IN{SPACEIDIETSPAGEINAECHSTE SPACE +RUNDE* 
4220 PRINT"UND{ISPAGEIMUESSENISPACEHDANNE 
SPACEIWIEDER SPACEFIEINE TSFACEIMENGETSPAC 
E} [7 

4230 PRINT"PUNKTETSPACEIFRESSEN!" 

4240 PRINT"DIETSPALEIMENGETSPALEIDERTSPA 
CEINDOCHTSPACEY ZULSPACEIFRESSENDENTSPACE} 
PUNKTE" 











Compute mit 


“2547 
x114> 
<136> 
<102> 
«797 
37? 
2197 
«1737 
<56> 
<89> 
<I33> 
<225> 
«12> 


<107> 
«231 > 


297 
x206> 


<I0> 


722 
<180> 
<1&> 
<143> 
<126> 
<b> 


x216> 
<65> 


1977 
<226> 
X1h6> 
<1653> 
x1893> 
<2> 
«<144> 
<I0> 
<19707 
<110> 


<77> 
<B2> 


x0> 


25 











() 


bücher 





4250 PRINT"WIRDTSFACEIUEBERTSPACEIDEMISR 


ALEHRADARTSPACEIÄNGEZEIST." 


*170> 


4251 FRINT"GESTEUERT ISPACEIWIRDISPACE>MI 
TISPACENIOVSICKISFPACEF+INISPACEIPORTTSPAC 


Er!” 





<52> 


4300 PRINT" DOHN>NUN{SPACEINDCHTSPACE}VI 





ı Was fehlt auf Ihrem 


Bücherbord?_ 


Der Computer vor der Schultü 


"Der ee 
vor ger une 





Ganz sicher hinkt der Buchti- 


tel der Realität etwas hinter-' 


her. Computer gehören heute 
schon zum festen Bestandteil 
der Schulbildung und haben 
somit den Fuß schon in den 
Schultüren. Thema und Ab- 
handlung des Buches sind 
aber keineswegs veraltet, da 
die Problematik „Computer 
und Schule“, wie sie hier an- 
gesprochen wird, solange ak- 
tuell bleiben wird, wie es 
Computer geben wird. Das 
Buch spricht besonders die 
kritischen Punkte an, die in 


der allgemeinen Diskussion 
um die neuen Technologien 
zum Streit der Experten füh- 
ren: der Computer und seine 
erzieherische Funktion bei 
Heranwachsenden. Ebenso 
werden die Risiken der Tech- 
nologien für den Menschen 
im Alltag aufgezeigt, wie 
auch nützliche Anwendun- 
gen. Also kein Buch ideologi- 
scher Maschinenstürmerei, 
sondern ein kritisches Buch, 
das den Leser in hervorragen- 
der Weise in die psychologi- 
sche, gesellschaftspolitische 
und pädagogische Diskussion 
rund um den Computer ein- 
führt. Vom Leser werden kei- 
ne Kenntnisse der Program- 
miertechniken erwartet, aber 
der Leser wird dennoch ge- 
fordert. Das Buch richtet sich 
schon daher in seinem Titel 
ausdrücklich an Lehrer, EI- 
tern und Politiker. Meiner 


Meinung nach ist es aber vor 


allem ein hervorragendes 
Buch für den fächerübergrei- 
fenden Unterricht der Ober- 
stufe und für alle Schüler, die 
den Computer nicht nur von 
seiner technischen Seite her 
begreifen wollen. 

Heinz Moser. 

Der Computer vor der 
Schultür 

Orell Fussli Verlag: 
Schwäbisch Hall 

Preis: 34,80 DM 


EL€SPACE3VERGNUEGEN, BEIMISPACEFSPIELEN! ” 
4400 PRII PRINT" TDOHNZ RIGHT LES -TASTE-" - 
4500 GETAF: IFAF=""THEN4500 

4600 IFAS=" SPACE} "THEN 15 


ENDE DES LISTINGS 





C-64 - 


= la 


Ständig im Griff 


<151> 
<114> 
<41> 

<165> 


Ein nützliches Hilfsmittel 
für C-64-Programmierer 


Schon wieder ein C-64-Hand- 
buch, wird der Profi stöhnen. 
Aber beim zweiten Blick wird 
man eines Besseren belehrt. 
Manfred Walter Thoma hat 
ein Buch konzipiert, das man 
nicht als Handbuch bezeich- 
nen kann und auch nicht als 
Programmierhilfe aus- 
schließlich für Profis. Aber 
auch als Anfängeriektüre 


kann man dieses Werk nicht 
bezeichnen. Aber an wen 
richtet sich das Buch: über- 
haupt? Die Antwort ist: an al- 
le, die sich in irgendeiner 
Form der Programmierung 





Compute mib 


mit dem C-64-Betriebssy- 
stem widmen, Dem Autor 
hatte sich selbst das Problem 
gestellt, beim Programmie- 
ren ständig im Handbuch 
nach bestimmten. Befehlen 
oder POKES nachzublättern. 
Wer viel programmiert, weiß, 
wie mühselig dies ist, denn 
auch der versierteste Compu- 
terfreak kann sich unmöglich 
alle Systemadressen merken. 
Auch die äußere Form des 
Commodores-Handbuchs 

beginnt mit der Zeit mächtig 
zu leiden, und dann wird es 
spätestens Zeit, sich mit dem 
Buch von Manfred Walter 
Thoma anzufreunden. Denn 
wie der Name eigentlich 
schon aussagt, wird in diesem 
Buch auf sehr übersichtliche 
Weise ein umfassender Über- 
blick über alle wichtigen 
Adressen, alle Basicbefehle 
und auch über die Floppybe- 
fehle gegeben. Die Nach- 
schlagezeiten werden da- 
durch erheblich verkürzt. Be- 
sonderes Lob verdient auch 
die „griffige“ Ausführung, der 
stabile Umschlag und die 
doch sehr robusten Innensei- 
ten. Die Spiralbindung wird 
sicher auch nach häufiger 
Nutzung nicht ihren Geist 
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meine ei esse u en sei] 














aufgeben. So weit zur Form, 
die in diesem Fall bestimmt 
nicht unwichtig ist. Inhaltlich 
sind alle Bereiche der Basic- 
programmierung und der Är- 
beit mit den Grafikmöglich- 
keiten des C-64 (auch Sprites) 
abgedeckt und mit erläutern- 
den Beispielen versehen. Ein 
eigenes Kapitel beschäftigt 
sich mit den Diskettenbefeh- 
len und dem Aufbau einer 
formatierten Diskette. Nicht 
enthalten sind in diesem klei- 
nen Nachschlagewerk die 
Assemblerroutinen, die wohl 
in dem angekündigten 2. 
Band erscheinen sollen. {uk) 
Manfred Walter Thoma 

C-64 - Ständig im Griff 

Dr. Alfred Hütig Verlag, 
Heidelberg 


Funk und 
Computer 


Endlich einmal ein tolles 
Buch, das den C-64 ernst 
nimmt. Welch nützliche 
Dienste ein Homecomputer 
leisten kann, beweist Heinz 
Tiefenthaler mit seinem 
Buch „Funk und Computer“, 
Der Titel ist allerdings leicht 
irreführend, da sich das Buch 


mehr mit allgemeiner Elek- 


trotechnik beschäftigt - der 
Untertitel ist da schon eher 
zutreffend. Von dem Leser 
werden schon allerhand 
Grundkenntnisse auf dem 


Gebiet der Elektrotechnik 
verlangt. Wer sich aber mit 
elektrotechnischen Berech- 
nungen herumschlagen muß, 
findet hier eine hervorragen- 
de Arbeitserleichterung. Für 
die vielfältigsten Aufgaben 
werden Programme angebo- 
ten - alle komplett in BASIC 
geschrieben, so daß leicht 
Änderungen und spezielle 
Anpassungen vorgenommen 
werden können. 

Die einfachsten Programme 
berechnen 
Transistorenschaltungen und 
Netztrafospannungen. Aber 
auch Lautsprecherfrequen- 
zweichen, die Maße von Para- 
bolantennen, Schwingkreise 
und sogar die Mondkoordina- 
ten lassen sich mit den ange- 


Widerstände, - 


bücher 


botenen Programmen be- 
rechnen. Als nützliche Zu- 
satzprogramme werden noch 
SORT- und Druckerroutinen 
(VC 1520) und ein Karteipro- 
gramm angeboten. Die Sort- 
routine ist allerdings etwas 
lahm (Basic!!) und auch die 
Druckerroutine zum Aus» 
druck von Listings ist eigent- 
lich überflüssig (ich erinnere 
nur an CMD!). Ansonsten 
bietet aber dieses Buch viele 
sehr nützliche Anwenderpro- 
gramme für den Elektrotech- 


niker, im Beruf und im 
Hobby. (uk) 
Heinz Tiefenthaler 
Eunk und Computer 


Verlag für Technik und Hand- 
werk 
Baden-Baden 





Simulationen ökologischer 
Gleichgewichte mit dem 


Computer 


Wenn man sich mal fragt, wie 
man einen Computer wirk- 
lich sinnvoll einsetzen kann, 


+ 


kommt man sehr schnell auf 


das Arbeitsgebiet der Simula- 
tionen. Mit Simulationen ist 


R ee A 


en Y Be 5 
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nicht wie bei Computerspie- 
len etwa eine möglichst reali- 
stische Darstellung gemeint, 
sondern eine möglichst reali- 
stische Berechnung von meB- 
baren Parametern innerhalb 
geschlossener Systeme, die 
sich aufgrund ihrer Komple- 
xität im Realexperiment nur 
schwer darstellen lassen. Sol- 
che Simulationen können 
zum Beispiel die vielfältigen 
Faktoren, die zum Waldster- 
ben führen, in einem Bezie- 
hungssystem zusammenfas- 
sen, Der „Experimentator“ 
kann nun durch Verändern 
einzelner Parameter die Aus- 
wirkungen auf das komplette 
System studieren. Solche Si- 
mulationsprogramme legen 
meist keinen besonderen 
Wert auf grafische Darstel- 
lung, nur in einigen Sonder- 
fällen, z.B. bei „Flugtrainer“ 
kommt grafischen Darstel- 
lungen eine besondere Be- 
deutung zu. 

Simulationen gibt es leider 
nicht nur für den Bereich der 
Ökologie, sondern auch in 
der Militärforschung. Das 
vorliegende Buch beschäftigt 
sich jedoch ausnahmslos mit 
einem positiven Aspekt der 
Simulation: der Darstellung 
von biologischen Gleichge- 
wichten. Jeder, der sich nicht 
nur für Computer interes- 
siert, sondern auch noch re- 
ges Interesse an biologischen 
Themen hat, findet hier eine 
Vielzahl außerordentlich an- 


Compute mi 


spruchsvoller Anregungen. 
Das Buch richtet sich daher 
ganz sicher nicht an den Hob- 
bybiologen, sonderm setzt 
schon einige Kenntnisse vor- 
aus. 

Als Grundsystem zur Erstel- 
lung von Modellen wird ein 
spezielles Basicprogramm 
benutzt, das mit demeigentli- 
chen Modellprogramm ver- 
knüpft wird. 

Dieses Basicprogramm, DY 
SYS genannt, ist mittlerweile 
für Apple II, C-64, Epson HX- 
20, IBM-PC, NEC PC-8201A 
und Sinclair Spectrum erhält- 
lich und kann auch beim Ver- 
lag auf Diskette bestellt wer- 
den, auf der sich auch alle 
Beispielprogramme des Bu- 
ches befinden. 

Das einfachste und wohl be- 
kannteste Modelt in der Bio- 
logie ist wohl das Räuber- 
Beute-System. Es wird eben- 
so behandelt wie Wachstum- 
Verfall, Wachstum der Bio- 
masse, Wettstreit um Nähr- 
stoffe und Licht, usw. 

Dies sind nur einige wenige 
Beispiele aus dem Buch, das 
sich an den wirklich interes- 
sierten Leser wendet undsehr 
ernsihaftes Material anbietet, 
Hartmut Bossel 
Umweltdynamik 

30 Programme für kyberneti- 
sche Umwelterfahrungen auf 
jedem Basic-Rechner 

te-wi Verlag, München 

Preis: 52,- DM, 

Diskette zum Buch: 29,- DM 
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Aus Basicladern Maschinenfiles erzeugen {l) 


Maschinenprogramme werden in „Gom- 
pute mit“ zumeist als Basiclader abge- 
druckt, da hier eine Checksummenüber- 
prüfung möglich ist. C-64 und VC 20-Be- 
sitzer benötigen zudem noch einen Ma- 
schinensprachemonitor, den wir nicht bei 
allen Lesern voraussetzen können. 

Der Basiclader ist allerdings oftmals zu 
umfangreich und zu langsam, vorallem 
dann, wenn man ein Programm öfter. ein- 
laden muß. Hier bietet es sich an, aus dem 
Basiclader wieder einen Maschinenspra- 
chefile zu erzeugen. Die folgende Anlei- 
tung zeigt Ihnen, wie Sie vorgehen müs- 
sen. 


Zunächst müssen in die Speicherstellen 
43 und 44 Low- und Highbyte der Start- 
adresse eingepoked werden. Low- und 
Highbyte errechnen sich folgender- 
maßen: 


. LOW = Adresse and 255 
ı HIGH = INT(Adresse / 256) 





Schon gewußt? 


Wenn man mit LOAD lädt, kommt bei einem selbstgetippten Programm immer LOA- 
DING READY, wenn man aber mit „LOAD:“ und Shift & Runstop lädt, startet das Programm 


Bitte beachten: Adresse steht für den Zah- 
lenwert! 


Nachdem wir nun wissen, wie Low- und 
Highbyte sich errechnen, müssen wir her- 
ausfinden, weiches die Anfangs- und 
Endadressen sind. Oftmals gehen sie 
schon aus der Programmdokumentation 
hervor. Wenn nicht, schauen wir uns die 
Zeile im Basiclader an, in der der READ- 
Befehl steht. Zum Beispiel: 


20 FOR I=4096 TO 4200: READA: 
POKE 1,A: NEXT 


in diesem Beispielprogramm wäre also 
4096 die Anfangsadresse und 4200 die 
Endadresse. Aufgepaßt! Es gibt Basic- 
lader, die mehrere solcher Programmzei- 


len beinhalten. Dann ist der insgesamt 


kleinste Wert die Anfangsadresse und der 
höchste Wert die Endadresse. Wenn wir 
jetzt das jeweilige Low- und Highbyte aus- 
gerechnet haben, geben wir folgendes 
ein: 


Tips und Tricks für den C-16/116 


immer mit „RUN“, ohne daß man etwas eintippen muß, 
POKE 65287,145 Bild verschiebt sich und Cursor ist verschwunden, 





POKE 43, Lowbyte der 
Anfangsadresse 
POKE 44, Highbyte der 
Anfangsadresse 
POKE 45, Lowbyte der 
Endadresse 
POKE 46, Highbyte der 
_ Endadresse 
SAVE "FILENAME“,8,1 


Das funktioniert so nur im Direktmodus, 
da nach Eingabe der Adressen das Basic- 
programm (nicht jedoch das Maschinen- 
programm!) total abstürzt, Deshalb muß 
vor irgendwelchen Experimenten der Ba- 
siclader unbedingt auf Diskette oder Kas- 
sette abgesaved werden. 

Mit LOAD "FILENAME“,8,1 wird das Pro- 
gramm in Zukunft eingeladen und mit 
SYS Anfangadresse gestartet. 

Da Commodore diese Adressen bei meh- 
reren Rechnern beibehalten hat, ist diese 
Vorgehensweise für G-16/C-116/plus 4, 
VC 20 und C-64 völlig identisch. (uk) 


Grafik: 


0 Graphic 1,1 
10 FORL=1to 80 STEP 1 
20 CIRCLE 1, 160, 100,.L : Next 








Pokes: 


Bildschirmbeben: 
40 F 1 POKE 775, 16 Listschutz mit Breakinterrupt. 

EL Se POKE 774, 255 : POKE 775, 245 Listet nur 1 Zeilennummer 

Wenn man nach List X eingibt, und danach nochmal LIST auf dem Bildschirm er- 
scheint ... (sehen Sie selbst) 


POKE 65287, 1 


20 POKE65287,1 : NEXTL | 
30 GOTO 10 





Bildverschiebung 

















ee 


Compute mib 


8/86 


tips & tricks 


Hardcopyroutine für Commodore-Drucker 


Für 6-16/116 und plus 4 


Die folgende Routine ist ein wichtiges 


| Werkzeug für alle, die einen Commodore- 


Grafikdrucker (oder einen dazu kompati- 
bien) besitzen und ihren Bildschirminhalt 
ausdrucken lassen möchten. 

Das Programm ist in Maschinensprache 
geschrieben und wurde mit einem Bro- 


| ther-Drucker HR-5G getestet. Dieser be- 


nötigte ungefähr 2 1/2 Minuten für einen 
Ausdruck. 

Das nachfolgende Programm ist ein BA- 
SICLADER, der das Maschinenprogramm 
im Speicher ablegt und daraufhin auf Kas- 
sette oder Diskette abspeichert. 














Das Programm wird, nachdem es vom Ba- 
siclader abgespeichert worden ist, mit 
LOAD “HARDCOPY“ ‚1,1 oder LOAD 
“HARDCOPY“ ‚8,1 (bei Diskettenversion) 
eingeladen. 

Gestartet wird der Ausdruck mit SYS 
1545. Die nebenstehende Abbildung ist 
ein Beispielausdruck auf dem BROTHER 
HR-5C. In eigene Basicprogramme wird 
die Hardcopyroutine folgendermaßen ein- 
gebunden: 

10 IF PEEK(1545)=0 THEN LOAD 
“HARDCOPY“,8,1 (oder ...1,1) 

eine andere Variante ist: 


10 IF X=0 THEN X=1: LOAD 


“HARDCOPY",8,1 (...1,1) 
Das Maschinenprogramm muß nach dem 


Start des eigenen Basicprogramms auf 
Datasette oder Diskette zur Verfügung ste- 
hen. Die zweite Einladeroutine hat den 
Nachteil, daß bei jedem Neustart die Hard- 
copyroutine wieder neu eingeladen wer- 
der muß. Die erste Version überprüft die 
Anfangsadresse des Programms und er- 
kennt, ob es vorhanden ist. Nachteil: Ma- 
nipulationen an nachfolgenden Adressen 
werden nicht erkannt (z.B. nach POKE- 
Befehlen) und im Speicher steht ein feh- 
lerhaftes Maschinenprogramm, was be- 
sonders in der Entwicklungsphase eines 
Programmes leicht passieren kann. 

Die Hardcopy wird dann im Programm 
oder im Direktmodus mit SY$1545 aufge- 
rufen. 


ESKENTSPACEFPMIETSPACEIG 3, "3GETKEYA 



























C-1& LISTINGS + CHECKSUMMEN t0C V1.0) S RR 
1 REMERERAREHEE EHRE CLTOD Ei A a DISKETTE 8 Sa 
2 REM* HAR op * ’ 
a HARD eOFV 5 559 | 38 POkE178,9:POKE179,6:POKEIS7, 147: POKEI 
4 REM# FOR VOUR COMMGDORE 16/116/PLUS4 # <105> ee Sn 
5 REMk-—— mn nun en mnmuememummni 4677 20 YS_ 59732 . z 
& REM® 1985 BY WERNER FLEISCHER * <82> POKE_ 238,0 ER 
7 REM» = Koss |, Mas Sagen sE 
8 REMRHSHRRRRESRERSHEHSEIHHRIBHSSBSHE 177 | 77 5 > “ENE2 
en, as 45 PRINT" (CLEAR RVSONILADENTSPACESIMIT:L 
10 FORISDEC("609") TODEC("69Z")AREAD nxs <ını> | BUSORFFLDAD"CHRE ISA THARDEORVÜEHRBESMT, 
11 A=A+ASC (HIFI) + 
ee DESEREAAIN eo, | 50 PRINT“ CRVSOH>STARTENISPACEIMIT: (RVSOF 
13 next Siass | EFSYSTSRACEIDEC ('CHRE (34) "6OF"CHREASM ") 

„+ 

14 DATA A9,04,AR,A0,00,84,AB,20 a ee I>9 NZ 
15 DATA BA,FF,20,85,47,A2,04,20 <65> r 
16 DATA 97,47 ,A9,08,20,9B,47,A9 <6B> 
17 DATA 00,85,DA,85,DB,A9,00,85 <100> 
18 DATA DB,85,D9,A9,00,85,DD,A9 <76> 
19 DATA 00,85,DC,A2,03,B5,D8,9D <62> 
20 DATA AD,02,CA,10,F8,20,F3,C1 <115> 
21 DATA BO,OF ,AA,FO,0C,A5,DC,49 <226> II 
22 DATA 07,AA,BD,89,C2,05,DD,85 <251> 1) 
23 DATA DD,E6,DA,A&,DC,E8,86,DE <71> 
24 DATA E0,07,90,D7,A5,DD,09,80 <117> Tan 2 n 
RE es Et Täglich a uns Hilferufe 
26 DATA 85,DA,E6,D8,D0,02,E6,D7 <70> nach auten Anwende rammen 
27 DATA A5,D9,F0,B7,A5,D8,09,40 <137> R3 g rprog, 
28 DATA 90,B1,A9,0D,20,8B,A7,A5 <76> für C-16, C-116 und plus 4. 
29 DATA DA,38,69,06,85,DA,C9,C8 <150> ’ 
30 DATA 90.98. 20,00.FF A904 AC Eiter Wer solche Programme geschrie- 
31 DATA C3,FF <115> ie nich rstaube 
32 IFA<>16130THENPRINT" CLEAR RVSONFFEHL ben hat, sollte sie ni tve u. en 
ERTSPACE3 IN{SPACEIDATAS{SPACE25? "END <90> lassen, sondern sie an uns schik- 
33 PRINT"{CLEAR SPACEI-ASTSPACEI ROGRAMM 2 z e 
TSPACEIWIRDTSPACE>NUN{SPACEIABGESPEICHER ken odersich mituns in Verbindung 
1." <15> 
34 PRINT" (SPACE}LEBENTSPACEI GIELSPACEFEI seizen. 
NEISPACEI-ISKETTE{SPACEIBZW. CSPACEI-ASET Kontakt: Uwe Knierim (Redakteur) 
TE" <165> 


35 PRINT" {SPACEYIEIN, TSPACEYUNDTSPAGEIDRU 
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C-16 / 116, plus 4 Hardware 











Versatile 


Interface Adapter 


(Für erfahrene Bastler) 


Sicher hat so mancher C-116/C-16 Besit- 
zer schon öfter an seinem Rechner ein „Tor 
zur Außenwelt“ vermißt. y 

Der C-64 kann bei geeigneter Program- 

mierung über seinen USER-PORT bei- 

spielsweise Drucker mit Centronics- 

Schnittstelle oder Roboter aus Bausätzen 

betreiben. 

Der Versatile Interface Baustein vom Typ 

6522, der in der vorliegenden Schaltung 

benutzt wird, bietet eine breite Palette von 

Anwendungsmöglichkeiten auf Grund 

seines reichhaltigen Innenlebens: 

1. 2 mal 8 Bit Ein/Ausgänge, wobei jeder 
der 16 Anschlüsse unabhängig vonei- 
nander zum Eingang oder Ausgang 
bestimmt werden kann. 

. Für je 8 Bit zwei Steuerleitungen, die 
auf die Änderung der Signalflanken 
reagieren (Handshakesteuerung). 

. Ein 8 Bit Schieberegister zur Umwand- 
lung serieller Daten in Parallele und 
umgekehrt. b 

. Interrupt-Register, die eine Interrupt 
Steuerung von außen ermöglichen. 

. Zwei 16 Bit Taktgeber oder. Zähler je 
nach Programmierung. Die Timer kön- 
nen dabei sowohl Impulsfolgen als 
auch Einzelimpulse erzeugen. 


a» 


> 


a » 


Mit dieser Ausstattung und der Tatsache, 
daß wir zwei dieser Bausteine an den C- 
166/C-16 anschließen können, haben wir 
die Möglichkeit, nahezu alle denkbaren 
Schnittstellen zu simulieren. An dieser 
Stelle sei darauf hingewiesen, daß im Be- 
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triebssystem des C-116/C-16 die RS 232 
Schnittstelle bereits vorgesehen ist. Der 
Aufruf erfolgt mit OPEN2,2. Allerdings 
muß dann auch der im PLUS 4 verwende- 
te Chip 6551 angeschlossen sein, da die 
Registerprogrammierung auf diesen Bau- 
stein zugeschnitten ist. Die Möglichkeiten 
des 6551 sind im Wesentlichen aber auf 
die RS 232e Schnittstelle beschränkt, so 
daß hier der vielseitig verwendbare VIA 
6522 gewählt wurde. 

Der VIA belegt 16 Speicherplätze, deren 
Funktionen in Tabelle 1 zusammengefaßt 
sind. Die Arbeitsweise des VIA 6522 wird 
durch den Zustand von zehn Registern be- 
stimmt, 


1A. Das Ausgangsdatenregister A (Output 


Data Register (ORA)) legt den Wert fest, 
der dem PORT A als DUALZAHL (8 Pins 0 
bis 255 = 0 bis 11111111) hat, 


18. Das Ausgangsdatenregister B (Output 
Data Register (ORB)) legt den Wert von- 
PORT B fest (analog PORT A). 


2A. Das Datenrichtungsregister A (Data 
Direction Register A (DDRA)) legt fest, 
welcher Pin des Ports A Ausgang bzw. Ein- 
gang ist, (0 = Eingang, 1 = Ausgang) 


2B. Das Datenrichtungsregister B (Data 
Direction Register B (DDRB)} legt fest, 
welcher Pin des PortsB Ausgang bzw. Ein- 
gang ist. (0 = Eingang, 1 = Ausgang) 


3. Das periphere Steuerregister (Periphe- 
ral Control Register (PCR)) legt die Erken- 
nung der Fiankenübergänge (steigende 
oder fallende Flanke) durch die Zustands- 
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leitungen CA1 und CB1 fest. Ferner wird 


: die Wirkung der beiden anderen Zu- 


standsleitungen GA2 und CB2 bestimmt. 


4. Das Hilfsteuerregister (Auxiliary Control 
Register (ACR)) legt fest, welche Funktion 
Timer und Schieberegister haben und ob 
Dateneingänge gesperrt sind. 


5, Das Interrupt Flag Register (IFR), das 
aufzeigt, ob und weiche Interrupts erfolgt 


‚sind. 


6. Das Interrupt Freigabe Register (Inter- 
rupt Enable Register (IER)), dasnachprüft, 


ob erfofte Interrupts erlaubt sind oder ' 


nicht, 


7. Die Timer Register (Steuerung durch 
das ACR). 


8. Das Schieberegister (Shift Register 
(SR)). Das Schieberegister wird zur Um- 
wandlung serieller Daten in Parallele und 
umgekehrt benötigt. 


Für einen evtl. zweiten VIA wird der 
Adressbereich FD10 bis FDIF benutzt. 


Hiermit soll es der grauen Theorie genug 


sein. Am Schluß steht ein kleines Test-Pro- 
gramm, mit dem alle Ports A & B als Aus- 


gänge nach und nach angesteuert wer- 


den. 

Da hier insbesondere der Hardware-Auf- 
bau des Interfaces im Vordergrund steht, 
wird nicht näher auf die Funktionsbe- 
schreibung des VIA eingegangen. Falls 
aber bei Maschinensprachen-Freaks und 
Hardware-Insidern der Wunsch nach 
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Heft 5/85 

Commodore 

Bestell-Nr. COM CK 1/9 16,- DM 
Bestell-Nr. COM CD 1/1 20,- DM 


Senso (C-18/116), Jungle (C-64), Auto- 
start (C-64), Sogsenzer (6-84), Sulo 
(6-64), Olymgia (#6-20), Flowers VC-20} 


Schneider 

Bestell-Nr. COM SK 1/1 16,- DM 
Cobra, Krüml, Nausted Gastle, (-Bort, 
ROM-CALLS 





Haft 8/85 

Commodore 

Bestell-Nr. COM CK 5/1 16,- DM 
Bestall-Nr. COM CD 6/1 29,- DM 


Supermoni 64 (C-84), Galaxy (C-64), At- 
lantis (C-64), Shaelin (G-16), Hospital 


(E-20), Füpper-Hall (6-28), Alon 
(vC-20) 

Schneider 

Bestell-Nr. COMSK 5/1 16,- 
Bestell-Nr. COM SD 5/1 39,- 09 


Bzell, Crash, Citylander, Klondike, REM- 
Killer 


Haft 6/85 
Bostall-Nr. COM CH 2/1 16,- OM 
Bestell-Nr. COM CD 2/1 20,- UM 


Mamptman (G-84), Softlandiag (0-84), 
Karate (C-84), Einbrecher {VG-20), Tan- 
*er (C-20), Jupiter Rescue (MG-20), 
805-Schiffbrach (L-16) 


Schnelder 
Bestell-Nr. COM SH 2/1 


18,- DM 
Tastaturbelegung Cave-Runner, Gld- 
Shurehamd 
Heft 10/85 
Commpadora 
Bestall-Nr. COM CK 6/1 16,- DM 
Bostell-Nr. COM CD 6/1 20,- DM 


The Castle of Dr. Craap (VC-20), Catchgo 
(NG-20), Sub-Zone (VC-20), The Maze 
Grazo Game (6-94), Super-Breakout 
(6-84), Planot at Death (6-84), Funk- 


tioenstaston-Preogrammiorung _ (C-04), 
Car Race fC-16/110), Key-Haiper 
{C-18/116) 
Schneider 
Bestell-Nr. COM SK 6/1 38,- DM 
Bestell-Nr. COM SD 6/1 39,- DM 


Labyrinth, Catch, Mini Gar Hace, Iaka So- 
gras, Single Hsk Backup 


Heft 7/85 

Commodore _ \ 

Bestell-Nr. GOM CK 3/1 16,- BM 
Bestall-Nr. COM CO 3/1 20,- DM 


Soa-Attak (C-64), Saca-Age (6-04), Wic- 
ro-Tools (C-84), Disky 1.0 (C-84), Stunt- 
man (NC-20), Sopp (VC-20), Balleon- 
Shoat (VC-20), Farbeniroh (C-10) 


Schnolder 


Bestell-Nr. COM SK 3/1 18,- DM 
Bastoli-Nr. COM SD 3/1 38,- DM 
Sacrot Vallay, Smileymat, 

Suyar-File 

Reit 11/85 

Commodore 

Bestell-Nr. COM CK 7/1 18,- DM 
Bestall-Hr. COM CD 7/1 20,- DM 


Intorpreter Music-Language (C-64), Fi- 
releglan (6-84), Funktlonstsstengro- 
erammierung (6-64), Schatztaucher 
(6-16), Dangerous Planet {VG-20), Geo- 


Zaxxan (VG-20) 

Schneider 

Bestell-Nr. sKr/ 16,- DM 
Bestell-Nr. COM SD 7/1 30,- DM | 


"Eiis, Allen-Hunter, Demos-Attack, Da- 


Hoft 8/85 

Commodore 

Bestell-Nr. COM EX 4/1 16,- DM 
Bestell-Nr. COM ED 4/1 20,- DM 


Drucker-Lst (UC-20), Flowers Il (VC-20), 
Dino Eggs (WE-20), Piano (C-18/116), 
Tank-Duall (E04), Vampir (C64), Memory 
(0-84), Raster Register, Intorrupt (0-64). 


Schneider 


Bestell-Nr. COM SK 4/1 16,- DM 
Bestell-Nr. COM SB 4/1 39,- DM 
Goptar Patre), Suchrätsel, 

Toner 

Heft 12/05 

Commodore 

Bestell-Nr. COM CK 4/1 16,- DM 
Bestell-Nr. COM CD 4/1 20,- DM 


Jos (0-18/118), City-Runner (C-16/110), 
Mission Rescue (6-84), 

(6-84), Print-Senerater (6-84), Datage- 
narator (6-64) 


Schneider 
Bestell-Nr. COM SK 8/1 16,- DM 
Bestell-Nr. COM 8D 8/1 39,- DM 


Choecksummer 1.9 UPC, Two Cherry 

















tenverwaltung, Discshaw Chaps, Erwin im Zauberschloß, Druck- 
k steuerung NLO 401 
Te m  Z — gen u boO ob 
Heft 1/88 Heft 2/86 Nett 3/86 
Commodore Commodore Commodore 
Bestell-Nr. COM CK 1/2 16,- DM | Bestell-Nr. COM CK 2/2 16,- DM | Bestell-Nr. COM CK 3/2 16,- DM 
Bestell-Nr, COM CD 1/2 20,- DM | Bestell-Nr. COM CD 2/2 20,- Di | Bestell-Nr. 60 3/2 20,- DM 


Checksummer 1.06, Astronaut Battie (6-64), Husycahıra 
(©-18/116), Kardeopyroutine (C-18/118), Helmut und die 
Zeitmsschins (6-18/116), äocos MG-20), Rock'ms 
{VC-20), Chariy der Haketenmann (WC-20), Interrupt- 
Programmierung (NC-20) 


Schneider 

Bestell-Nr. COM SK 1/2 
Bestell-Nr. COM SD 1/2 
Defender, Boulder Dask, Baslc-Bofohle auf Hau Funk- 


Haft 4/86 

Commodore 

Bestell-Nr. COM CH 4/2 18,- DM 
Bestell-Nr. COM CD 4/2 20,- DM 


Shuttle (VE-20), Josef In den Hählen (NG-20}, Merge- 
Routine (VC-20), Shoot it (VC-20), Fast Trust {C-64), Da- 
ta-Text 84 (6-64), Sary, der schnelle Kabelverleger 
(0-16/116), $DI (G-18/118), Boap-Rautine (C-16/116) 
Schneider 

Bestell-Nr. COM SK 4/2 
Bostell-Nr. CON SD 4/2 


Space-Nescue, Texteditor, Starfigkt, Programm-Netter. 
Pate laE A FERRRIENER 


Bestell-Nr. COM CH 7/2 16,- DM 
Bostell-Nr, COM CD 7/2 
VC-20-Sound-Deme, ad Reak (NC-20), Ehost-Holl (UC- 
20, Aoadrunner (C-64), Basic Extunslon (6-64), Meteo- 
ritensturm (G-64), Checksummer G-18/118, Alrwolf {C- 
18/110), Broak-Dut [C-16/116} 


Schneider 


Bestell-Nr, COM SK 7/2 10,- DM 
Bestell-Nr. COM SD 7/2 38,- DM 
Poker, Cavo-Walker, Disknttanarchiv 


Roba (C-64), Basic-Hefeklserweiterung (C-64}, Rake- 
tenstart (G-16/116), Dreikampf (6-18/118), Keadline 
16-16/116), Defander (W6-20), Formal 1 (WC-20), Memo- 
ry-Display (40-20) 


Schneider 

Bestell-Nr. COM SK 2/2 16,- DM 
Bestell-Nr. COM SM 2/2 39,- DM 
Aken 2001, Diamand Hunter, Directory 

Heft 5/86 

Commodore 

Bostell-Hr. COM CK 5/2 18,- DM 
Bestell-Nr. COM CN 5/2 20,- DM 


Space-Davil (C-64), Disk-Eddi(G-64), ABG-Legen {V- 20), 
3-D-Labyrinth (UC-20), Tron (VC-20), Invaders of Space 
(C-16/118), Suhmarlne (C-16/116), Balkendiagramm (C- 


Bostell-Hr. COM $SK 3/2 16,- DM 
Bestell-Nr. COM SD 5/2 39,- DM 
$tartank, Grafik-Designer, Cross-Naference, itant 

Aus diesem Heft 

Commodore 


Besteli-Nr. COM CK 8/2 16,- DM 
Bestell-Nr. COM CD 8/2 20,- DM 
Schnelder 

Bestell-Nr. COM SK 8/2 18,- 
Bestell-Kr. COM SU 8/2 39,- DM , 


Ninor-Jumper (6-16/118), Bero (C-18/118), Data-Maher 
(C-18/116), Befohlsarweiterung (C-84), Starchip (C-04), 
Minl-Car-Race (C-84), Text-$craller (C-84), Toxt-Editor 
(6-64), Checksummer {6-20}, Robin at Ravenwreck 
(VC-20), Mini-Karate (#6-20), Autenumber-Routine 
(nC-20) 

Schneider 

Bestell-Nr. COM SK 3/2 

Bestell-Nr. COM $D 3/2 

Smily, Scrapl, Die verrückte Fabrik, Disc-Holp 


Heft 6/08 


Commadare ; 
Bestell-Nr. COM CK 6/2 16,- DM 
Bestall-Nr. COM CD 8/2 20,- DM 
Busic-Mastor (C-64), Tha little Pack gnes home (C-84), 
EDDY (C-64), Invors-Utility (G-16/116), Checksummer 
(C-18/118), Alfonwurl (G-16/110), Data-Maker (UC-20), 
Karsts-Mld (VC-20), 9-Bort (VC-20) 


16,- DM 
39,- DM 


Schneider 

Bostell-Hr. COM SK 8/2 

Bostell-Nr. COM SD 6/2 

Disksort, Mini-Forth, Starcommand 


16,- DM 
39,- DM 


Telefonische Bestellungen unter 


05651/30011 


Bearbeitung innerhalb einer Woche 





Alle hier aufgeführten Kassetten und Disketten könnon Jederzeit nachbestollt warden. Bel dan Zeitschriften sind 
die Ausgaben 6/85, 7/85, 11/85, 2/86 und 3/88 leider vergriffen und können wicht mahr nachgellofert werden. Bitte 


beachten $ie dies bai Ihrer Bestellung. 
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8/86 





Programm Preis/ Preis/ 
Kassette Biskette 


Multi-Kay/S-Tool 84/ 

Intorrupt-Programme 16,-- DM 21,-- UM 
Spritohilfe/Disklonder/ 

Directory 21,-- 04 - 
Tape-Diractery/Asmen/ 

Date-Genorator 15,——- DS 21,-- DE 
Fast Load " 10,-- DM i 
Diskmonitor/Zeichensatz 20--DM . - 


Ronssemblor/Mlaskengeneratoer 15,-- DM 20,-- DM 
Bol 64/ Treiborprogramm 
für 1526/MPS 802 Decelevatar T4,-- DM 18,-- 0M 
Supertapadiractory/Renew/ 
Kontrollabtrage 15,-- DM - 
Vidso-Unlities, 
Mului-Basic V3, Bildegitor 17,-- DM 23, DM 
Botter Basic/Autonumbar/ 

- Nardcopy/Terminalpregramm 17, DM 23, 10 
$peicher-Oszilleshap/ 
Mahkro-Assemblor/Change Type 49,-- DM 54, DM 
Roactor/Gencentration/Datenhank 17,50 DM 23,50 DM 


Warlords/Caveras ol Death 14,50 DM 19,50 DM 
Allon-Destroyer/Duoll 24,50 DM 29,50 DM 
Ocsan Gams/Tennis 17,50 DM 23,50 DM 
The Caves 17,50 DM 23,50 DM 
Gardener 17,50 DM 23,50 DM 
Vto/Skatebeard Sam 24,50 DM 29,50 DM 
Olympic Blathlon/ FE 

$trunnlo for Lite 24,50 DM 28,50 DM 
Pole Fositlon/Smwe 

your tsethı/Puslı 24,50 DM 28,50 
Explorer 2/Programmnama? 24,50 DM 29,50 DW 
Hauorn/Widerstand B,-- DM 15,-- DM 
Spaca-Gomets/Erdspalis/ 

Sprite-Data 15,-- DM 23,50 0M 
Autostart/Bestellschein? 

Roadpainter 18,50 0M 23,50 UM 
Hardeopy/Spaco-Fighter/ 

Data-Sansratar 15,60 DM 18,50 DM 
Monster-Attack/Block- i 
Painter/Epsop-Drucker 15,50 DM 23,50 DM 
Projekt/Datgabank 18,-- DM 23,50 DM 
Spiders/Tho Basic 18,50 DM 23,50 DM 
High Noon/Skeet/ 

Grafik-Designer 17,50 DM 23,58 DM 
Painter/Star-Baddio/Editer 17,60 DM 23,56 DM 
Wüstenraliy/Jet-Pac/ 

Black Moore Castle 17,50 0M 23,50 OM 
Drieftaube/Cadelon 19,50 DM 24,50 DM 
Ritter Erik/Grand Prix $pritehlife 19,50 DM 24,50 DM 
Firebird/Nigh Music 24,50 DM 29,50 DM 
Moonswosper/Scottl 24,50 DM 29,50 DM 
Tran/Mercurlous 24,50 DM 29,50 DM 
Interceptor-Basel/Schatter 24,50. DM 29,50 DM 


Jump-Man/Spacs-Taxi/The Way 24,50 DM 29,50 DM 


Bestell-Nr. 


uC 2/65 
UC 3.1/85 


VG 3.2/05 
VE 4/84 
UC 5/83 
06 0/85 


uc 7/85 
VG 8/86 
UG 8/63 
UG 10/865 


UVC 1/88 
BC/G-1 
NC/G-2 
HE/C-3 
HG/G-A 
40/C-5 
H6/C-6 
BE/C-I-4 


BL/T-2-4 


6/C-3-4 
HE/C-4-4 
ca 


651 
661 
en 


6121 
2 


ca 
c42 
652 
662 
£72 
613 
ca 
033 


Neu in unserer Software-Bestell- 


liste der 


Fantasy-Gountry/ 

Norror-Castlo 18,-— DM 23,-- DM 

Meon Fiohter/Goldrausch 18,-- DM 23,—— IM 

Zeichondesigner 14,-- DM S 

OLD-Routins-Merge-Routine/ 

Change Type 14,— 18,-- 
8/86 


02 
u@ 8/86 
u0 1/68 


software-service 









Preis/ 


Diskette 


15,- 

15,50 DM 
10,50 DM 
10,50 DM 
19,50 BM 
19,50 DM 
18,50 0% 


19,50 DM 
19,50 0 
19,50 DW 
19,50 DM 
19,59 UM 
21,50 DM 


21,50 DM 
21,50 DM 


a a 5 u En | 


21,50. 0M 
19,-- DM 





Compute mi 


Programm Preis/ 
Kassette 
>) } 

Ts 

Bestelfscheln/Gläcky 8,50 OM 

Ruitigrapb/All Rammor 11,-- DM 

Zyklu/Meteaorit 11,-- Mb 

Garten/Schlaß Grasalsteia 14,-- DE 

Fressman/Outlaw 14,-- DM 

Prost/Buffalo BIN 14,—— DM 

Joy Man/Powerpack 14,—— Bi 

Der raseade Malschar/ 

Frankie ans to Pharao 14,-- OM 

Matron/Obst 14,-- DM 

Raca On/Cagy 14,-— DM 

Nürburg ID/Düsl 14,— DM 

Braaker/Expulsien 14,-- DM 

Brückenhan/Jange 18,-— DM 

Inks-Schatz/ 

Hiner dor Fassadenstreicher 18,-- 0M 

Bacby In Action/Bergshaoting 16,-- DM 

Zykle/Geldsammiar 11,50 0 

Star-Wars/Punktefresser 14,50 DM 

Catch tke Fish/Miater Jump 14,50 DM 

: Ghest's Epgs/Fex Hant 14,50 DM 

Collecter/Braak Bert 14,56 DM 

Q-Bort/Salvago Crow 16,650 DM 

Day Fight/Schwitzbad 16,50 0M 

Earth Rescue : 14,50 DM 

Tank 14,50 DM 

Terra 2/Pac-Ball 16,50 DM 

Sprites/Spacs-Battle 13,-- DM 

Brafik-Paluter 10,-- DM 

NG-Glack 9-- DM 

Dsealarater g-- DM 

Joypalat 12,-- DM 

Disassembler, Old-Programme 19,-- DM 

Directary/Farb-JAg 10,-- BM 

Autsrennen 11,— DM 

Universal-Batel 41 9, 0m 

Computerschrift/Symbol-Swap 10,-- DW 

Keyboard Teolkit/Farbdecadierung 1t,-- DM 

Aladin 8-- DM 

Painter/Box-Bafahl 14,——- DM 

Naschinansprache-Monitor/ 

Disk-Hilie 16,-- DM 

Basic, Maschinen-Kit 12,-- UM 

Backup/Directeny/ 

Ellipse/Disk - 

Data-Benerator/Bralik Tanlkit/ 

ASCH List (Turbe Pascal) 15-04 

Fallschirmspringer 8-- DH 

Seisterschloß 8,-- DM 

Zeichendesignor 12,50 DM 

Mini Car Race/Imtercertar 3D 17,50 BM 

Secret Agent 12,58 

Space Imvadors/MMlai Pac/ 

Otti's „Sound“ 17,50 DM 

Samsen und die sten/ 

Die varliinte 16 17,58 DM 

Meon-Landing/Peszer 17,50 O4 

Super-Miner 14,-- DM 

CPt-Bert 14,-- DM 

Gonan's Castla 15,50 DM 

$nider’s Mace 16,50 

Schneider Panik/ Milierskip 18,50 OM 

Horror-Lares/ 

Midnight 18,50 DM 

Cosmis-Castis/Splkar-Nace/ 

Traumland 18,50 0M 


Bestell-Nr. 


vi 
yn 
v1 
vs 
v101 
vızı 
v22 


v32 
va 
vs2 
v82 
472 
vıs 


v2 

v3 
BE/A-L 
NC/V-2 
UC/N-3 
HC/Y-4 
HC/Y-5 
HG/V-6 
HC/V-1-4 
HC/Y-2-4 
HE-7-3-4 
HE/N-4-4 
UN 2/85 
uw 5/86 
uw 0/85 
iM 7/85 
UV 8/85 
8/85 

Wr 10/86 


U8 3/85 
US 4/85 
US 5/85 
US 6.1/85 
US 8.2/85 
us 7/85 


US 0/65 
u8 9/85 


18 1/80 
AL/SR-3 
NC/SR-4 
HC/SR-5 
HC/SR-6 
HC/SR-1-4 


HE/SR-2-4 


HE/SR-I-4 
NL/SN-4-4 
8n 42 
5n 52 
5n 62 
SR 72 
SR 13 


ER 23 
sn 


























 — 








LT u u — 














werkstatt 


DEC 

64768 
64769 
64770 









Register/Funktion 


TIMER R/W=L 


PORT B Output Data Register (ORA) 
PORT A Output Data Register (ORB) 
PORT B Data Direction Register (DDRB) 
ORT A Data Direction Register (DDRA) 





FDO4 64772 Ti Witte TILL Read TICG-L 
Clear T1 Interrupt Flag 
F005 64773 T1 _ Write TIL-H&TIG-H Read TIC-H 
TILL->TIC-L 
Clear T1 Interrupt Flag 
FDO6 64774 TI Weite TILL Read TiL-L 
FD07 64775 Ti  Wiite TIL-H Read TiL-H 
Clear Ti Interrupt Flag 
FD08 64776 T2 Weite T2L-L Read T2C-L 
Clear T2 Interrupt Flag 
FDO9 64777 ° T2  Wiite T2C-H Read T2C-H 
T2L-L>T2C-L 
Clear T2 Interrupt Flag 
FDOA 64778 Shift Register (SR) 
FDOB 64779 Auxiliary Control Register (ACR) 
FDOC 64780 Peripheral Control Register (PCR) 
FDOD 64781 Interrupt Flag Register (IFR) 


interrupt Enable Register (IER) 
PORT A Output Data Register (ORA) kein Handshakebetr. 


BE _____.___ 
























RAN=H 


TABELLE 1 


mehr Information besteht, sokann in einer 


späteren Ausgabe von COMPUTE MIT da- 


rauf eingegangen werden. Bitte schreiben 
Sie uns. 


Sp, und nun zum Bastelteil. 

Um eine Schnittstelle a la 6-64 zu erhal- 
ten, sind nur zwei Chips nötig: (Bezugs- 
quelle am Schluß) 

1. Der VIA 6522 

2. Ein 7400 ais Verzögerungsglied 


Um einen wirklich vielseitig nutzbaren 
Userport zu erhalten, bedarf es jedoch et- 
was mehr Aufwand. 

So ist eine galvanische Trennung zwi- 
schen dem Rechner und den zu schalten- 
den Stromkreisen erforderlich. 

Für die einfache Version ist keine zusätzli- 
che Stromversorgung notwendig - die 
beiden Bausteine (VIA und 7400) können 
vom Computernetzteil mitversorgt wer- 
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den. Wollen wir aber mehr betreiben, z.B. 
Leuchtdioden zur Anzeige, Optokoppler 
zur galvanischen Trennung und Relais als 
spannungsunabhängige Schalter, so be- 
nötigen wir ein neues Netzteil. 

Netzteile, die die gewünschten Spannun- 
gen liefern, erhält man am preiswertesten 


beim Elektronikversandhandel (z.B. Völ- 
kner-Elektronik, Bühler-Elektronik, Con- 
rad-Elektronik). Dort werden nämlich aus 
Restbeständen von Computerherstellern 
Netzteile mit zwei mal5 Voltund einmal 12 
Volt recht billig angeboten. Um das Span- 
nungsregelteil im C-116/C-16 nicht zu 
überlasten, muß zwischen den 12 Volt 
Ausgang und den C-116/C-16 ein Regelteil 
geschaltet werden. Wie jeder Besitzer ei- 
nes C-116 weiß, wird der Computer in der 
Nähe der Leuchtdiode bei längerem Be- 
trieb recht warm. Dieser für den Rechner 
negative Effekt verschwindet, wenn das 
separate Regelteil vorgeschaltet wird. 


Benötigte Bauteile: 

1. Ein kleines Gehäuse. 

2. EinKühlblech, das aufs Gehäuse paßt. 

3. Ein Festspannungsregler 5 Volt, 1 Am- 
pere (Typ 7805). 

4. Ein 15 Gang Spindeltrimmer 10 KOhm. 

5. Ein Widerstand 5 KOhm. 

6. Zweiadriges Kabel. 

7. Ein Niedervolt-Netzteilstecker (wie am 
Originalnetzteil). Achtung: Minusistin- 
nen, Plus außen. 


Das Ganze wird gemäß Bild 1 zusammen- 
gebaut. Folgendes gilt es zu beachten: 
Der Abstand zwischen Regelteil und Rech- 
ner sollte möglichst klein sein (Störspan- 
nungen). 

Die Ausgangsspannung sollte so einge- 
stelit werden, daß beim Laden von Cas- 
sette das Fernsehbild nicht flimmert. Das 
ist von Gerät zu Gerät etwas unterschied- 
lich, liegt aber bei ca. 7,5 Volt. 


Listing des Testprogramms für die Ausgänge des Luxus-User-Ports 


FDOO-TEST 


10 
20 
30 


FORI-64768T064769 
FORZ=0T0255 
POKEU),Z 

FOR K=1 TO 25 
NEXT K 

NEXTZ 

NEXTI 


40 
50 
60 


POKE64770,255:POKE64771,255:POKE64768,0:POKE64769,0 


POKE64770,225:POKE64771,255:POKE64768,0:POKE64769,0 


GOTO2O 


Sompube mib 
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Wollen wir nun unseren VIA anschließen, 
so stehen wir vor dem Problem, daß der 
Expansionport des C-116/C-16 ein Raster- 
maß aufweist, das es eigentlich gar nicht 
gibt. Warum Commodore dieses Raster - 
nämlich 1,96 mm - gewählt hat, ist nicht 
zu ergründen, stellt den Bastler aber vor 
ein nahezu unlösbares Problem. Zum 
Glück ist es möglich, bei der am Schluß 
genannten Bezugsquelle eine entspre- 
chende Platine zu erhalten. 


Liste der benötigten Bauteile (Wer nur den 
VIA anschließen möchte, braucht nur die 
ersten fünf Positionen. Wer zwei VIA an- 
schließen möchte, braucht alles doppelt 
außer Pos. 7.): 

. Ein VIA 6522 mit Sockel. 

. Ein SN 7400 N mit Sockel. 

. Eine Platine Raster 1,96 mm. 

. Eine (oder 2-3) Eurocard-Platine Ra- 
ster 2,54 mm. 

. Flachbandkabel 25 adrig. 

, Ein Gehäuse für 2-3 Eurocard-Plati- 
nen (je nach Ausbau). 

. Zwei Sub-Min D Stecker 25 polig und 
zwei passende Buchsen in Schneid- 
klemm-Technik. 

. 16 Optokoppler Typ SPX 103. 

. 16 Leuchtdioden (8 rot, 8 grün). 

10. 16 Widerstände 150 Ohm. 

11. 16 Widerstände 3 KOhm. 

12. 2 DIL Schalter 8 mal Ein 

13. 16 Dioden Typ 4001. 

14. 32 Transistoren Typ BC 107 B (davon 
16 für die Relais; bei größeren Relais 
sollten stärkere Transistoren verwen- 
det werden (evtl. Typ 2N1711). 

15. Stecker für die Ausgänge (nach Be- 
darf). 

16. Ein DIL-Reed-Relais 1 mal Ein 5 Volt. 

17 16 Relais (evtl. die selben wie Post 16; 
sind klein und schnell). 


SI an BsJomwm—_— 


eoife =) 


Diese Liste sieht riesig und unbezahlbar 
teuer aus. Doch erstens sind die Bauteile 
gar nicht so teuer, wenn man auf Sonder- 
angebote bei den oben erwähnten Elek- 
tronik-Versandhäusern achtet, und zwei- 
tens braucht ja nicht jeder sofort alles an- 
zuschließen. Da die Schaltungen, wie man 
leicht an den Bildern sieht, modular auf- 
gebaut sind, kann jeder seinen Luxus- 
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Expansion-Port 
Adress Bus 


Daten Bus 


Control Bus 


1,25, A,0G 


VIA 6522 


2,3 entweder direkt (nur VIA) 
oder an ein DiL-Relais und 
dieses schaltet 5 Volt vom 
Netzteil auf den VIA. 


Z (od. AA) 


an Pin 1 des’SN 7400N 


Von Pin 8 des SN 7400N 


nach Bild 2 





Tabelle 2a 


User-Port nach Bedarf ausbauen; er sollte 
nur beim Kauf des Gehäuses darauf ach- 
ten, daß später alles Platz hat. 

Wie in GOMPUTE MIT 7/86 besprochen, 
müßten im Rechner zwei Kabel gelötet 
werden. Erstens (für den Speicherbereich 
FD00 bis FDOF) von Pin 15 von 0101 beim 
6-116 bzw. U16 beim C-16 zum Pin Z des 
Expansion-Ports und von Pin 16 des glei- 
chen Bausteins (für den Speicherbereich 
FD10 bis FDIF (zweiter VIA)) zum Pin AA. 
Die Zählrichtung der Pinbelegung am Ex- 
pansion-Port ist, wenn der Rechner mit 
der Rückseite zu Ihnen auf dem Tisch stet, 
folgende: Oben von rechts nach links von 
1 bis 25, und unten von rechts nach links 
von Abis Z ohne 6,1, 0,0, {), dafürnach Z 
noch AA, BB, CC. 

Wenn hinten an der Platine oben und un- 
ten je ein 25 adriges Flachbandkabel an- 


Sompute mib 


getötet ist, so benötigen wir nur die in der 
folgenden Tabelle 2 aufgeführten An- 
schlüsse für den VIA. Sollen zwei VIA 
6522 angeschlossen werden, so muß 
statt PIN.Z vom Rechner PIN AA benutzt 
werden. Alle anderen Kabel werden paral- 
lel angeschlossen. 

In den Bildern 3-6 werden die nötigen 
Verbindungen für den vollständigen User- 
Port deutlich gemacht. Wie gesagt, es 
bleibt Ihren Anforderungen, Wünschen 
und Möglichkeiten überlassen, wie weit 
Sie den Luxus-User-Port verwirklichen. 
Für die verwendeten Bauelemente wer- 
den die üblichen Symbole benutzt. 
Bezugsquelie für die Bauteile (VIA 6522 
etc., insbesondere die Expansion-Port-. 
Platine): 

Fa Elektronik Richter, 6200 Wiesbaden, Ahein- 
straße 85, Tel.: 061 21/37 7117 


werkstatt 























KORREKTUR 


Speichererweiterung 
Kleine Ergänzung 


In dem Artikel in der Ausgabe 7/86 fehlten 
im Bild 3b auf Seite 39 die Pinnummern 
zur besseren Orientierung. Allerdings ent- 
sprechen sie exakt den Bezeichnungen 
von U7 in Abbildung 4 und müßte daher 
ohne Probleme verstanden worden sein. 
Leider ist auch in die Abbildung 1 eine fal- 
sche Bezeichnung „reingerutscht“, Auf- 
merksame Leser werden sicher bemerkt 
haben, daß die im Textgegebeen Bezeich- 
nungen die richtigen sind und in Abbil- 
dung 1 statt U 8 natürlich U5 und U6 ste- 
hen mußte. 


In der nächsten 
Ausgabe: 


Kassetten- 
interface 


zum Anschluß von 
2 Kassettenrekor- 
dern an den C-16. 


In Vorbereitung: 


Richtige Tastatur 
am C-116! 





Zum Schluß noch ein Hinweis für Spiele- 
Freaks: Wenn man bei Port A und Port B 
die ersten fünf Eingänge auf einen 9 poli- 
gen Sub Min D Stecker legt und gemäß 
der Schaltung auf Seite 44 der COMPUTE. 
MIT Sonderausgabe 2/86 anschließt, kön- 
nen statt zwei vier!! Joysticks angeschlos- 
sen werden, 













Superbonus 


zusätzlich zum Autorenhonorar 


Für die 64k-Versionen von 6-16/116 und für den plus 4 suchen wir die 5 besten 
| Programme: 


| Textverarbeitungsprogramme 
| Grafikprogramme 
| Dateiverwaltungsprogramme 
Spielprogramme 


| Besonders Maschinenprogrammierer sind aufgefordert, Ihre Programmentwicklungen, die 
| auf den 64K-Speicher zugreifen, an uns einzusenden. Tronic-Verlag 









Ausgänge des VIA 6522 


Pinbelegung des SN 7400N 
1,2 


} Pin Z vom Rechner 
3 an Pin 12,13 
11anPin 4,5 
6an Pin 9,10 
8 Pin 23 des VIA 
14 +5 Volt 
7 GND 


TABELLE 2b | 


Compute mi om 


% %* Wr Leserecke + Meckerecke sr dr * 


| Große Auswahl 


' Als ich neulich (gespannt auf die neue 
| „Compute mit“) den Bahnhofsbuchhan- 
' del betrat, liefen mir kalte Schauer über 
' den Rücken. Der Grund dafür war der 
| Blick auf die „Masse“ der verschiedenen 
' Computerhefte, Vor mir lagen mindestens 
- 20 verschiedene Zeitungen. 

' Nun stellt sich die Frage, welches Heft ich 
i mir zulegen soll! ... Zuerst beeindrucken 
| mich die vielen schönen Titelbilder. Alsich 
dann aber die Hefte aufschlage und einen 
| Blick in das Inhaltsverzeichnis werfe, 
kommen nur noch wenige Hefte in die en- 

gere Auswahl. Dann wird noch mal 

 sehnell durchgeblättert und wieder „g8- 
‘ winnt“ bei mir die „Gompute mit“, 

- Am meisten beeindruckt mich der Preis 
dieser Zeitschrift. Istman nicht gerade der 
[| Reichste, so spielt dieser Faktor doch 
; schon eine wichtige Rolle! 

' Der Preis ist, gemessen an den anderen 
; Zeitung fast geschenkt. Das soll keine 
‘ Aufforderung zur Preiserhöhung sein! ... 
: Meiner Meinung nach, sind manche Zei- 
| tungen üherflüssig, da sie sowieso nur 
i Nachzieher anderer sind (ich möchte kei- 
| ne Namen nennen!). 

' Wieschon gesagt, ein großes Lob verdient 
' meiner Meinung nach „Compute mit“, Sie 
ist preiswert und beschäftigt sich nicht 
. nur mit den „professionellen Sachen“ 
. (Das soll nicht heißen, daß sie nur für An- 
| fänger ist!). 

' Manch andere Zeitung kann sich von der 
I „Compute mit“ doch wohl eine a lab 
' abschneiden“! 

Thorsten Hup 


' Redaktion: Liebe Leser! Ist das nicht viel- 
; leicht etwas zuviel des Lobes? Natürlich 
; fühlen wir uns geschmeichelt, aber letzt- 
, lich hat doch jede Zeitschrift ihren speziel- 
‚ len Kundenkreis. Natürlich haben wir 
' „Compute mit“ für ganz bestimmte Leser- 
| schichten konzipiert, zu denen ganz offen- 
sichtlich auch Sie, Thorsten Hup, gehören. 


Für diesen Kreis werden wir uns auch in 
Zukunft einsetzen, um weiterhin eine Zei- 
tung zu produzieren, die unseren Lesern 
gefällt, (uk) 


Zuwenig VG-20? 


Liebe Leute, 
ich habe diesen Brief geschrieben, um 
mal ordentlich zu meckern. Ich bin seitet- 


wa 2 Jahren Besitzer eines VC-20 mit. 


16k-Erweiterung und kaufe Ihre Zeitung 
ab 1/86 regelmäßig. Um so erstaunter war 
ich, als ich feststellen mußte, daß die 
Computerzeitschrift „Gompute mit“ um 
genau 1,-- DM teurer geworden ist. Ich 
finde nun, daß die Preissteigerung nicht 
ganz gerechtfertigt ist. Meiner Meinung 
nach sind 4 DM für ein Heft mit 2 VC-20- 
Programmen, von denen ich nur 1 Pro- 


gramm verwenden kann, zu teuer. Da- 


sonst Ihre Zeitschrift ganz in Ordnung ist, 


habe ich mir nun das nächste Heft auf ge-: 


kauft. In dieser Ausgabe mußte ich wieder 
negativ feststellen, daß die „Tips + Tricks“ 
für VC-20 ersatzlos gestrichten worden 
sind. Auch besitze ich das Programm „Da- 
ta Maker“ in anderer Form schon zweimal, 
so daß ich in Ausgabe 6/86 nur noch ein 
Programm gebrauchen konnte. Wenn das 
Heft 7/86 wieder so ein mageres Ergebnis 
wird, werde ich Ihre Zeitschrif nicht mehr 
kaufen. Stefan Meier 


Redaktion: Es ist leider das alte Problem ei- 
ner Computerzeitschrift, die mehrere Sy- 
sterne berücksichtigt, daß sich am Ende 
jeder wünscht, daß für „seinen“ Computer 
mehr getan wird. Eine der Anwendergrup- 
pen wird sich immer beschweren. Natür- 
lich würde in einer reinen VC-20-Zeitung 
mehr fürs Geld geboten, aber da dieses 
System relativ wenig verbreitet ist, hätte 
eine solche Zeitung auf dem Markt keine 
Chance. So müssen VC-20-Fans eben 
den Schneider- oder C-64-Teil mittragen, 
da der Verlag natürlich seine Gesamtko- 
sten kalkulieren muß. Sollte jedoch in 
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einer Ausgabe eine Gruppe zu kurz ge- 
kommen sein, so werden treue Leser Si- 
cher bemerkt haben, daß wir dies in den 
nächsten Nummern wieder ausgleichen. 
Wir hoffen, daß unsere Leser dafür Ver- 
ständnis haben, (uk) 


„Compute mit 6/86" - 
Speichern von 
Programm-Ausschnitten 


Sehr geehrte Herren, 

mit Interesse habe ich das Programm über 
das Abspeichern von BASIC-Programm- 
teilen zur Kenntnis genommen. 

Wieder einmal mußte ich feststellen, daß 
die Kenntnis der Möglichkeiten, die das 
BASIC des CPG zur Verfügung stellt, immer 
noch nicht allzu groß ist 

So leid es mir für den Autor tut, seine RSX- 
Routine ist eigentlich überflüssig, denn in 
BASIE ist die Möglichkeit durchaus vor- 
handen, Programmzeilen einzeln oder 
auch Programmteile abzuspeichern und 
sie an oder in andere Programme zu mer- 


Tips & Tricks: 


gen: 

GPENOUT“NAME“ 

LIST Zeilennummer, #9 oder LIST -Zeilennum- 
mer,#9 oder LIST Zeitennummer-,#9 oder 
LIST Zeilenaummer-Zeilennummer, #9 


GLOSEOUT 

kann im Direktmodus eingegeben werden 
und bringt das gleiche Ergebnis. Da die 
Zeilen als ASCII-File abgespeichert wer- 
den, lassen sie sich sogar mit dem fehler- 
haften MERGE-Befeht des GPC 464 ohne 
Umstände von Diskette in andere Pro- 
gramme mergen, 

Dieselbe Syntax gilt im übrigen auch für 
die Ausgabe einzelner Zeilen auf den 
Drucker: statt stream #9 ist stream #8 zu 
verwenden. Für ein eventuelles Listen in 
Bildschirmfenstern (0-7) gilt gleiches. 
Selbstverständlich gilt OPENOUT/CLOSEOUT 
nur für das Abspeichern auf Kassette/Dis- 
kette, Dietmar Schulze, Köln 
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Platinenlayout für G-16/116 


„ELOMAKER“ 


ist ein Programm, um: Schaltpläne am 
Bildschirm zu entwerfen. 

Es enthält folgende Routinen: 

- Zeichnung erstellen 

- Texte einfügen 

- Ausdrucken des Bildes 

- Platinen-Layout erstellen 

- Bilder speichern bzw. laden 

‚Da ich persönlich keinen Drucker besit- 
zem, enthält das Programm keine Druk- 
ker-Routine! 

Es ist aber bereits, durch REM-Zeilen ge- 
kennzeichnet, entsprechender Platz für 
den BASIC-Teil einer Drucker-Routine vor- 
gesehen {siehe Listing). 


Im Speicher (ab $3BFF bis $3DFF) ist 
Platz für den eventl. Assembler-Teil einer 
Drucker-Routine. Der erste Befehl 
($3BFF) muß ein „NOP=$EA” sein, weil 
das BASIC-Programm vor dem Sprung in 
die Assembler-Routine {SYS 15360) über- 
prüft, ob sie überhaupt vorhanden ist (sie- 
he Listing). 


Nach dem Starten des Programms wird 
gefragt, ob man Kassetten oder Disketten- 
betrieb wünscht, (Während des Pro- 
grammablaufs gelangt man jederzeit hier- 
her zurück. Dabei werden event. vorhan- 
dene Zeichnungen nicht in den Speicher 
kopiert!) 

Nach der entsprechenden Wahl gelangt 


man in das Hauptmenue, wo folgende 


Punkte zur Auswahl stehen: 


- Bild entwerfen 
- Bild laden 

- Bild speichern 
- Bild ausdrucken 
- Layout erstellen 


Durch Betätigen der Cursorsteuertasten 
(oben/unten) werden die Menuepunkte 


OEMMEFMAR. UM 
2N38553 





angewählt und durch „RETURN“ das ent- 
sprechende Unterprogramm ausgeführt. 


1. Bild entwerfen | 

Zuerst wird die Frage gestellt, ob ein Bild, 
welches in Speicher 1 oder in Speicher 2 
steht, bearbeitet werden soll. Gibt man 
„N“ ein, wird der Bildschirm gelöscht und 
der Text-Cursor erscheint links oben am 
Bildschirm. Gibt man „J“ ein, folgt die Ab- 
frage, ob Bild 1 oder Bild 2 in den Bild- 
schirmspeicher kopiert werden soll. Nach 
der Eingabe (,t“ oder „2“) erscheint das 
entsprechende Bild und der Text-Cursor. 
Des weiteren stehen folgende Befehle zur 
Verfügung; 


"RETURN 

Einschalten des Textmodus. Es erscheint 
ein Text-Cursor, mit dem sich Texte in ein 
Bild einfügen lassen. Durch „RETURN“ ge- 
langt man aus diesem Modus heraus. 


’SPAGE’ 
Text-Cursor löschen, durch Betätigen der 


Cursorsteuertasten erscheint selbiger 
wieder. 


GSompute mib 


fl 
Kopiert den aktuellen Bildschirminhalt in 
Speicher 1. 


F2 
Kopiert den aktuellen Bildschirminhalt in 
Speicher 2. 


F3 
Sprung nach Menue 3 (Zeichenmenue). 


F4A{HELP) 

Tabelle der zur Verfügung stehenden Be- 
fehle im jetzigen Menue (Menue 2) 

’ESC 

Rücksprung in das Hauptmenue. Dabei 
wird der aktuelle Bildschirminhalt in Spei- 
cher 1 kopiert. 


"INST/DEL 
Löscht einzelne Zeichen, wobei sich der 
Text-Cursor nach rechts bewegt. 


'CLR/HOME’ Löscht Bildschirm. 

Nachdem man durch Betätigen von 'F3’ in 
das Zeichen-Menue gelangt ist, erscheint 
der Zeichen-Cursor. Am unteren Bildrand 
erscheint ein reverses Feld, in dem die 
neun jetzt zur Auswahl stehenden Schalt- 
zeichen abgebildet sind. Es ist daher zu 
beachten, das bestehender Text am unte- 
ren Bildrand gelöscht wird, d.h. ein Text- 
kommentar sollte am Ende eines Entwurfs 
erfolgen und dann angespeichert werden. 
Im Zeichenmodus stehen folgende Befeh- 
le zur Verfügung: 


al 

Scrollen des Bildes nach oben. 

(Dabei wird der Bildteil, der aus dem Bild- 
schirm herausgescrollt wird, unwieder- 
bringlich gelöscht!!) 


Scrollen des Bildes nach unten. 
(Ansonsten wie ’FI’I) 


F3 
Weiterschalten der Schaltzeichen. 
(Insgesamt 45 Schaltzeichen) 


8/86 


mn 





FA 


ı Tabelle der zur Verfügung stehenden Be- 
ı fehle für Menue 3. 


19 

Auswahl des Schaltzeichens. Dieses wird 
dann auf dem Bildschirm an Gursorposi- 
tion ausgegeben. 


2. Bild laden/speichern 


Zuerst wird nach dem Filenamen gefragt. 


Nach der Eingabe wird das entsprechen- 


de Bild von Kassette oder Diskette gela- 


ag ann — yuzmn — n en 


den. Nach erfolgreichem Ladevorgang 
kehrt das Programm in das Hauptmenue 
zurück. 


Beim Abspeichern eines Bildes wird eben- 
falls nach den Filenamen gefragt, und 
nach der Eingabe wählt man das entspre- 
chende abzuspeichernde Bild an. (1, od. 
2". “ 


Das angewählte Bild erscheintdanach auf 
dem Bildschirm und durch einen beliebi- 
gen Tastendruck beginnt das Abspei- 
chern. Danach kehrt das Programm in das 
Hauptmenue zurück. 


Wird kein Filename eingegeben, kehrtdas 
Programm ''sofort in das Hauptmenue zu- 


3. Bild ausdrucken 

Nach der Wahl-des auszudruckenden Bil- 
des erscheint dieses auf dem Bildschirm 
und ein beliebiger Tastendruck startet die 
Drucker-Routine. Wenn keine Drucker- 
Routine vorhanden sein sollte, kehrt das 


Programm in das Hauptmenue zurück. 


4, Layout erstellen 
Nach der Wahl des Bildes erscheint das 
angewählte Bild auf dem Bildschirm und 
das Umwandeln in ein Platinen-Layout 
beginnt. Es werden dabei alle Buchsta- 
ben, Zahlen, Sonderzeichen usw. ge- 
löscht. 


Nach der Umwandlung erscheint der 
Schriftzu ’ENDE- und ein beliebiger Ta- 
stendruck läßt das Programm in das 
Hauptmenue zurückkehren. Dabei wird 


der aktuelle Bildschirminhalt in den Spei- 
‚cher geschrieben, aus dem das Bild ko- 


piert wurde. 

Es ist beim Erstellen eines Schaltplanes 
darauf zu achten, daß die Schattzeichen 
nicht zu dicht aufeinander folgen, weil 
es dadurch zu Fehlern im Layout kommen 
kann. 

Fehlerhaft erstellte Layouts lassen sich 
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'SPAGE' 

Dauerzeichenmodus. Es werden durch 
Betätigen der Cursorsteuertasten horizon- 
tal und vertikal nur die entsprechenden 
Leiterbahnen gezeichnet. Ein weiteres Be- 
tätigen der Leertaste beendet den Dauer- 
zeichenmodus. 


'INST/DEL 


.Burch Betätigen der 'INST/DEL-Taste wird 


ein Window definiert und gelöscht, wobei 
die Position des Zeichen-Cursors die rech- 
te untere Ecke des Windows bestimmt. 


‚u 


Scrollen . des Bildschirminhalts mach 
rechts oder links (Gursorsteuertasten!!). 
Die Position des Zeichencursors bestimmt 
die Zeile, bis zu der gescrollt werden soll. 
‘Esc' 

Rücksprung zu Menue 2. 


Allgemeines 

Da auch dieses Programm nicht perfekt 
sein kann (es gibt wahrscheinlich kein 
perfektes Programm), gibt es sicher ge- 
wisse Mängel, die man aber mit der Zeit, 
ausmerzen kann. Ich hoffe, daß die vorlie- 


- gende Dokumentation ausreicht und wür- 


de mich auf eine positive Antwort freuen. 
Ich wünsche Ihnen viel Erfolg beim Erstel- 


rück! aber weiterbearbeiten!! len diverser Schaltpläne! 
‚, 
C-1& LISTING + EHECKSUMMEN {DC V1.0% 23 DATA1IE,0E ,OE,DC,0C,80,38,00 <61> 
| | 24 DATA&&,6C,78,70,78,6C0,86,00 <70> 
| 1 REM Feen 25 DATA60,650,60,60,60,60,7E,00 <219> 
| #ELODATAR <150> 2& DATA63,77,7F,&6B,63,63,63,09 <143> 
| 2 REM un <15> 27 DATA65,76,7E,FE,6E ,66,66,00 <a0> 
' 3 REM <146> 28 DATASC ,66,66,66,66,&44,36,00 :255> 
' 4 REM <147> 27 DATATC ,66,66,7C0,60,60,50,00 <150> 
' 5 PRINT"XETREN ETRLHF” <214> 30 DATASC,66,66,56,66,3C,0E,00 2166} 
| & SENELR: FOLOR4 ,1:C0LORO,=COLORI „2,6 <199> 31 DATA7C,66,66,7C,78,40,66,00 <242: 
| 7 CHAR1,8, 10, "TELASHONF-ATASTSPACE} WERDE 32 DATASC,64,40,30,06,46,30,00 <244> 
NESPACEFEINGBELEBEN{FLASHOFEF" £575 33 DATA7FE,18,19,18,19,18,18,00 <104> 
' 8 POKES1,255: POKES2, 47: POKESS , 259: PDKESA 34 DATAAS, 66,66 ,66,56,66,3C,00 <228> 
| »47ıCLR <114> 35 DATA66,66,66,66,66,30,18,00 <141> 
9 REM 36 DATA&3,63,63,6B,7F,77,63,00 <77> 
ee "2243 37 DATAG6,66,30,19,30,66,66,00 <235> 
| 10 REM #ZEICHENSATZ# x195> 38 DATA56,66,66,36,19,18,19,00 E2öl> 
I Ai REM DD “226> 39 DATA7E,06,00,18,30,50,7E,00 <170> 
| 12 REM 1555 40 DATA00,00,67,67,67,27,3F,03 <3> 
| 13 DATADOO,7C,EE,C6,C6,EE,7C0,00 163} 41 DATAO0,00,00,FF,FF,00,00,00 <200> 
ı 14 DATA19,3C,66,7E ,66,66,65,00 295> 42 DATAOO, 30,66 ,86,664,46,E7,E7 <4> 
| 15 DATATE ‚66,56, 70 ,66,68, 70,00 AZAL> 43 DATAOO,00 ,00,00,00,19,19,00 <175> 
| 3% DATASE „66 ,60,60,60,86,30,00 x27> 44 DATA18,18,18,E7,E7,18,19,18 <240> 
| 17 DATA7B,60,66,66,66,66,78,00 <124> 45 DATA00,00 ,00,00,00,00,00,00 <B4> 
| 18 DATATE,60,60,78,60,60,7E,00 <128> 46 DATA18,18,19,18,18,18,18,18 <25> 
| 19 DATATE,60,60,78,60,60,60,00 x180> 47 DATAS6 ,66,66,00,00,00,00,00 <28> 
| 20 DATASC ‚66,60,6E ,66,66, 30,00 “117> 48 DATA18,19,18,FF,FF,18,18,18 <1&2> 
ı 21 DATA56,66,66,7E ,66,66,66,00 +193> 49 DATALB,18,3C,FF,FF,30,18,18 254% 
| 22 DATASC,18,18,18,18,18,50,00 2394> 50 DATASC,TE,FF,FF,FF,FF,7E,3C <125> 
i 
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51 
52 


100 


101 
102 
103 
104 
105 


DATASC,42,81 ,81,81,81,42,36 
DATA00,00,00,F8,F8,18,18,18 
DATAO4,95,[27,C07,EF,28,28,38 
DATAB2,82,BA,AF,DF,51,51,71 
DATA00,00,00,1F,1F,18,19,18 
DATA18,18,1B,F8,F8,00,00,00 
DATA18,18,18, 1F,1F,00,00,00 
DATAOO,FF ,80,80,80,80,FF,00 
DATAOO,FF,01,01,01,01,FF,00 
DATAFF FF,FF4FF FF AFF,FF,FF 
DATASE „66,6E,76,66 ,66,3C0,00 
DATA18,18,38,18,18,18,7E,00 
BATASC , 66,06, 00,30,40,7E,00 
DATASC ‚66,06, 10,06,56,3C,00 
DATAO&,OE, 16,66, 7F „06,06,00 
DATATE ,60,7C,06,06,66, 30,00 
DATASE 66,50, 7C0,56,66,3C6,00 
DATATE,66,0C0,18,18, 19,18,00 
DATASC, 66,66 ,30,66,66,3C0,00 
DATASC ‚66,66, 3E,06,56,3C,00 
DATATE,42,42,42,42,42,42,42 
DATA42,42,42,42,42,42,42,7E 
DATAO2,02,02,FE,FE,02,02,02 
DATA40,40,40,7F ,7F ,40,40,40 
DATA18,18,19,18,18,18,FF,00 
DATAOQ,FF,18,19,18,18,18,18 
DATAOE ,OA,OA,FA,FA,OR,OA,OE 
DATA4O, 40,40, 7F,7F 290 ,40,40 
DATA18,18,18,18,FF,81,FF,00 
DATAOO,FF,18,18,18,18,18,18 
DATAO2,02,02,FE,FE,02,02,02 
DATA18,18,19,19,18,18,FF,00 
DATAOO,FF ,91,FF,18,18,18,18 
DATAFF „80,80,80,80,80,80,80 
DATAFF,01,01,01,01,01,01,01 
DATASD,20,80,80,80,80,80,80 
DATAO1 ,01,01,01,01,01,01,01 
DATABO,80,80,80,80,80,80,FF 
DATAO1,01,01,01,01,01,01,FF 
DATA30,30,30,31,33,36, 30,38 
DATASC,7C,C0,BL,08,08,06,00 
DATA3O,30,36,F5,F6,35,36,30 
DATA38,3C0,36,33,31,30,30,30 
DATA1IC,10,18,10,9C,C0,7C,3C 
DATAOC,OC,0C,8C,CC,60,3C,1C 
DATASC, 1E,03,31,20,20,30,00 
DATAOC,OC,CC,AF,CF „AC5CE,OC 
DATAIC,3C,6E,CC,BE,OC,OC,OL 
DATA70,40,60,40, 71,03, 1E,1E 
DATA30,30,30,31,33,36,30,38 
DATASC ,7C,C0,8E,08,0C0,08,0E 
DATASO „30, 36,F5,F6,35,36,30 
DATAS8,3C,36,35,31,30,30,30 
DATA18,10,10,18,80,C0,7C,3C 


106 DATAOT,OC,06,80,CC,6C,3C, 1C 


107 


DATAIC,1E,03,39,20,30,20,38 


108 DATAOC,OC,CE,AF,CF,AC,CC,OC 
109 DATAO0,00,00,00,00,00,00700 
110 DATAIC,SC,GC,CC,BE,OC,OC,OC 


111 


DATA6O,40,40,60,01,03,1E,1C 


112 DATAES,95,8B,87,87,8B,73,E3 
113 DATAC7,C9,D1,E1,61,01,09,C7 


114 


DATAFF ‚81,81 ,42,24, 18, FF ‚FF 


115 DATAFF,FF,18,24,42,81 81, FF 


11& 
117 


DATAFF ‚80,80,80,80,80,80,80 
DATAFF „00,00,00,00,00,00,00 


118 DATAFF,01,01,01,01,01,01,01 


119 


DATASO „90,80,80, FF ,00,00,00 


120 DATAO0,00,00,00,FF,18,18,18 


121 
122 
1253 
124 


DATAO1 „01 ,01,01,FF,00,00,00 
DATAFF ,00,00,00,00,00,00,00 
DATAOG „00,00,00,00,00,00,FF 
DATAFF AFFSFFSFFAFF ,FFıFF,FF 


<a> 
“141> 
<161> 
<x2197> 
<255> 
x252> 
1067 
<195> 
<siea> 
<67>7 
<178> 
2357 
<2147 
<4> 
<221> 
<Z4&> 
1517 
<243> 
<183> 
z104> 
<21? 
<220> 
<111> 
<1598> 
<41> 
<218> 
s30> 
<162> 
<30? 
<222}7 
<119> 
<241> 
<49> 
<106> 
“2507 
<84> 
“1587 
2337 
SpAZF 
2257 
<1&2> 
<194> 
<A7> 
<164> 
“397 
<164> 
<8> 
“2165 
x16> 
<92> 
x172> 
«1877 
57? 
<174> 
<255> 
<176> 
«114> 
<226> 
" <148> 
27? 
<P> 
<907 
<53> 
73? 
637 
25» 
“10> 
<116> 
<236> 
<81> 
Sa0> 
x15> 
«1727 
<1351> 





1897 


190 
171 
192 
193 
174 
175 
194 





DATA30,30,30,30,30,30,30,30 
DATAOL, 10,30, 66, CE, 798,30,60 
DATASC,7E,E7,03,03,E7,7E,3C 
DATAO0 ,00,00,00,00,00,00,00 
DATAOO ,00,00,00,00,00,00,00 
DATADE, 11,20, FF ,00,00,00,00 
DATAO00 „00,80, FF ,41,42,22,1C 
DATA00, 38, 2A, 2A ,2A,2A,EE,00 
DATAOO,BS,AB,AB,AB,AB,EF ,00 
DATAFF „FF, 7F,3FF3FF)FF,FF FF 
DATAEB,EB,EB,EB,EB,EB,EB,ER 
DATAFF ,FF,FF,FF,FF,FF,FF,FF 
DATAFF „FF sFF sFFsFFATF FF TE 
DATA00,3E,77,63,63,77,3E,00 
DATASC ,7E,66,42,56,7E,3C0,00 
DATAO0,3C,7E, 66,42, 66, 7E,3C 
DATASC,00,00,00,00,00,00,00 
FORT= 12288 TO 13317 


"READAF:A=DEC {A$} ıPOKET „ASNEXT 


ELRSRESTOREIS1 

REM 

REM m 
REM: #**KDPIERROUTINEH#* 
REM *SAVE/LOAD-ROUTINE* 
REM Dumm — 
REM 

PATAAF 00,85, E5,A9,00,85,E& 
DATAAF,00,85,E7,A9,30,85,E8 
DATAA2,03,A0, 00,81 ,E5,71,E7 
Darace,D0,F7,E6,E6,E6,E8,CA 
DATA1O,FO,A9,00,95,E5,47,08 
DATABS,E& ,A9,71,42,03,20,00 
DATA91 ,E5,CB,DO,FB,£E6,E6, CA 
DATR10,F4,60,49,014,A2,01,A0 
DATAO1 ,20,BA,FF,A#,00,A2,5E 
DATARO „02,20 ,BD, FF „A?,00,20° 
DATADS,SFF „60,47 ,01,A2,01,A0 
DATAO1 ,20,BA,FF,A9,90,A2,5E 
DATAAO,02,20,BDy,FF,A?,FF,85 
DATADB,A9,FF ‚85,09,49,D8,A2 
DATAFF ,AO,FF „20,D8, FF ,&0,ER 
DATAEA, EA ,ER,ER,EA,FFI3FF,FF 
FORT= 1630 TO 1754 


RERDAF:A=DEC (A$) sPOKET ,A:NEXT 


CLR:RESTDRE17S 

REM 

REM .u ur oon oo ne 
REM #SCROLL-ROUTINEN® 


REM 
DATA79,A9,00,85,E5,85,67,A9 
DATAOC,85,E6,A9,08,85,E8,A2 
DATA1Z,AO,00,B1,ES5,48,B1,E7 
DATA48,C0 ‚Bi ,E5,48,B1,E7,88 
DATAY1,E7,60,91 ,E85,68,00,27 
DATADO,EF „68,91,E7,68,91,E5 
DATAAS,ES,18,69,28,90,04,E6 
DATAE6,E6,E8,85,E5,A5,E7,18 
DATA69,28,95,E7,CA,10,CA,58 
DATA60,78,49,00,85,E5,85,E7 
DATAA9,0C,85,E6,A9,08,85,E8 
DATAA2,13,A0,27,B1,E5,48,Bi 
DATAE7 ,48,88,B1,E5,48,B1,E7 
DATACB, 91 ,E7,68,91,E5,88,EA 
DATAEA,DO,EF,„68,91,E7,68,91 
DATAES,A5,E5,18,69,28,90,04 
DATAE&,E6,E6,E8,85,&5,A5,E7 
DATA19,69,28,85,E7,04,10,CA 
DATASB,&0,EN,EA,EA,EA,EA,EA 
FORT= 15872 T0 16018 


RERDA$: A=BEC (A$) a POKET „AFNEXT 


REM 


Gompuhe mi 


<208> 
sA3> 
<206>? 
<167> 
<168> 
<2535? 
<196> 
<125> 
<170> 
<A0> 
x122> 
<143> 
xa5> 
<134> 
<166> 
<4a5> 
“24537 
<221> 
<101> 
+55> 
<32> 
x222> 
<63> 
<55> 
x225> 
<37> 
x210> 
<2489> 
<150> 
<125> 
x86> 
<35> 


<158>_ 


<148> 
«84> 
<A2> 
<S56> 
<87> 
<181> 
<241> 
<160> 
<164> 
<240> 
<126> 
<114> 
«572 
<28> 
x256> 
<30> 
<61l> 
ar 
<184> 
<877 
<231> 
<255> 
<128> 
<134> 
<36> 
<21?> 
<37> 
<220> 
<138> 
«127 
<256> 
447 
<114> 
“150% 
<166> 
x92> 
%252> 
x153> 
<837 


8/86 


B 


8/86 


*HAUPTPROSRAMM NACHLADEN® 


m m mn nn m nn m m m a a a nm 


197 REM 
198 REM 
177 REM 
200 REM 
201 PRINTCHRS{IICHRE (142) :PRINT"IGEEAR U 
HITE}IDLOAD{BLACK} "CHR$ (34) "ELOMAKER"CHR$ 
(34) PRINT” {DOANFFRUN: " 
202 FÜKE1319,17:POKE1320,13:POKE1321,13: 
POKE1322, 15: POKE1323, 153 POKE1324 , 13: POKE 
1325,13 
203 POKE23F,7:NEW 
204 REM 
205 REM 
205 REM 
207 REM 
208 REM 
209 REM 
210 REM 
211 REM 
212 REM 
2153 REM 
214 REM 
ENDE D 


ur ern nd u u a a mr rar ar ar mn a m 


*COPFYRIGHT BY DIETER SCHEEL# 


LISTINGS 


«2197 
<182> 
<220> 
<87> 


“1947 


<i1B> 
<15> 
<F1> 
«927 
<95> 
<974} 
<95> 
<9a> 
«977 
<x978> 
*173> 
<202> 
<175> 


laEIMTeliolgorelczluulun 


C-1& LISTING + CHECKSUMMEN t0C V1.0) 


on 


#ELOMAKER® 


1 REM 


2 REM 
3 REM 
4 GOSUE193: GOTO48 

5 POKE1539,0: POKE1643 ,52: POKE17358 ,52:POK 
E1732,9:POKE1744 ,53: POKE1742 , 242: RETURN 
6 FOKE1437,0: POKE1543 ,55: POKE1735 ‚Sb: POK 
E1732,0:POKE1744 ,59: POKE1742,,2335: RETURN 
7 POKE1651,231:PDKE1853 ,229: 5Y51630: RETU 
RN 

8 POKE1551 ‚227: PDKE1453,231:5Y51430: RETU 
RN 

9 TRAP222: SCNELR:FOKE239 „Os CHAR1,B,10,"{ 
RVSON SPACEIWELCHESTSPAGEIBILDISPÄAGE2 RV 
SOFF}" 

10 GBETKEYB$: IFB$=" 1" THENGOSUBS: BSODSUB7+RE 
TURN 0 E 
i1 IFB+="2"THENGOSUB&: GOSUB7 =RETURNG ELSE 
67 

12 SENELR: CHAR1,5,9, "SOLLISPAREIEINTZPAC 
E}BILDISPAGEFAUSISPACEHDEMISPACEISPEICHE 
R":CHAR1,13,11,"GELESENTSPACE}WERDEN{SPA 
CE>3" 

13 TRAP222:GETKEYB$: IFB$="N" THENSENELR:R 
ETURN : 

IFB$="J" THENGDSURF=RETURN:ELSE1S 
POKERO21 ,Y: FOKE2024 ,X:1SCNELR: GOT017 
POKE2022,21:POKE2023,0:SCNELR 
POKE2022 ,0:POKE2023, 0; RETURN 

MK=1: MD=MO+1: IFMO>LTHENZCH=ZCH+F 
TRAP222: IFMO=6THENMO=1: ZCH=0 
RESTORE22:R=ZCH+1 :60SUB24 
FORI=RTOR+8:READF „G= CHAR1 ,F,22, "{RVSQ 
NIV+ASCH HF LRVSOFFH"ECHARI ,F-2,24,ERVSO 
N3"+STRE (GI +" CRFSDOEFT"SNEXT 

22 DATA3,1,7,2,115,3,15,4,19,53,23,6,27,7; 
31,8,35,9 

23 RETURN 

24 FORI=0TOS3 

25 CHAR1,1,21#+1,"{RVSON SPACEZS RVSOFFI” 
:NEXTz RETURN 

2& CHAR1 4X ,Y,"TSHIFTSPACEY" sPDKE1SBB89,V: 
FOKE15961,Y 

27 TRAP222:GETTF 

28 IFT$="{LEFTY"THENSYS1SB72 











157 > 
2543 
x146> 
x232> 


<184> 
<6> 
<133> 


<a4> 


x145> 
272 
<1009> 


«126> 


“2187 
s217> 
<277 

<179> 
<14> 

<158> 
<232> 
<198> 


<15> 
x13> 
<165> 
s<105> 
S123> 
<110> 


“89> 
s231> 


programme 


IFTS=" {RIGHT} "THENSYS15945 

IFT$="#" THENRETURN 

GOTO27 

TRAP222:CHAR1 ,X,Y,A$tE+ZCH) :X=X+1 
IFPEEK (BA+40#Y+X) C>32THENX=X+12 607033 
IFX>36THENX=361CHAR1 ,X,V," UP SPAGEZ 
DOHN LEFT3 SPACEZ DOWN LEFT3 SPACE3}” 

35 W=PEEK (BA+40#Y+X) sRETURN 

36 BOSUBI: I=30711 1I=3F11 

37 TRAP222: I=1+112=PEEK (1) s IFI=IITHENG& 
33 IFZ=280RZ=360RZ=370RZ-390RZ=440RZ=420 
RZ=430RZ=330RZ=00RZ=1250RZ=1260RZ=127THE 
NS? 

39 IFI=SZORZ=I6THENS7 R 

40 IFZ=270RZ=290RZ=30URZ=S1THENPOKEI „32: 
GOTOSs? 

41 IFZ>ORNDZ<27THENPOKEI „32:G0T1037 

42 IFZ>47ANDZ<SBTHENPOKEI „32:GDT037 

43 IFZ=3S8ANDPEEK (I-1)=28THENPOKEI „0:G0TO 
37 

44 1FZ=3BANDPEEK (I+1) =28THENPOKEI ,125:60 
1037 

45 IFZ=38ANDPEEK (I+40)3 =33THENPOKEI ,127:6 
01037 

46 IFZ=SBANDPEEK (I-40)=3STHENPOKEI,126:B 
01037 

47 IFZ=400RZ=1170RZ=119THENPOKEI „32: POKE 
1+1 ,32: 601037 

48 IFZ=35STHENPOKEI ‚28: POKEI-40,124: POKEI 
+40, 127:601037 

49 IFZ=4BORZ=450RZ=640RZ=F90ORZ=LO00RZ=AO 
THENPDKEI-1 „0: POKEI „32: POKEI+1 „32: POKEI* 
2,125:601037 

50 IFZ=720RZ=740RZ=76THENFOKEI ‚0: GOT037 
51 IFZ=1090RZ=1100RZ=113THENPOKEI „32: 60T 
037 

52 IFZ=730RZ=750RZ=77THENPOKEI „125:60103 
7 

54 IFZ=121THENPOKEI-1,0:POKEI ,„32:POKEI+1 
„325 POKE1+2,32s POKEI+3, 125: 801037 

55 IFZ=10STHENPOKEI„O:POKEI+1,127:POKEI+ 
2,125: POKEI+40, 32: POKEI+41 „33: POKEI+42,3 
2:601037 

5a IFZ=460RZ=700RZ=5SB0ORZ=42THENPOKEI-40, 
126: POKEI ‚32:POKEI+40, 127:601037 

57 IFZ=1010RZ=102THENPOKET „32:POKEI-40,1 
2&: POKEI+40 , 127: 601037 

58 IFZ=7O0RZ=8STHENENSUB62:G0T037 

57 IFZ=B4ORZ=F4THENGOSUB64:GDOTO37 

60 IFZ=38THENPOKEI,114 

&1 601037 

62 POKEI ,32:PDOKEI+40,0:POKEI+41 ,32:POKEI 
+80,32 

63 POKEI+1,12&: POKEI+B1 ,127:RETURN 

64 POKEI+1 ,32:POKEI+41 ,125: PIKEI+81 ,32 
&5 POKEI ,126:PDKEI+80, 127: RETURN 

66 CHAR1,14,23,"{RVSON SPACEHETSPACEINES. 
PACEID{SPACEIELSPACE RVSBEF}" :POKE239,05 
GETKEYB$: 6GOSUB141 G0SLBB: SOTO&7 

67 TRAP222: Z=2: MK=0: SCNELR: FORY=1TO11STE 
P2:CHAR1,10,Y+3,X8 (Y/2) ıNEXT 
CHAR1,10,&," {RVSONF "HKS CL HN CRVSOEEN" 
X=PEEK (198) : IFX=44THEN69 

IFX=1 THEN?7B 

Y=Z3 IFX< >43ANDX< >40 THENGY 
IFX=43THENZ=Z-2: ELSEZ=7+2 
IFZ<2THENZ=10 

IFZ>IOTHENZ=2 

CHAR1 „10, V+4 "2 PRINT" CRUSGEEI "XS 1Y/Z 











CHAR1,10,Z+4, "3 PRINT"{RKSONY"XS1Z/Z) 
G0T067 

POKE239 „0: 0NZ/2601077,97,100,109,36 
%=3: Y=33 SCNELR: GOSUB12:B0T0420 





Gompute ni 


<247> 
<79> 
<«177> 
<161> 
<90> 


<155> 
“I> 

x177> 
<145> 


<50> 
x225> 


<171> 
<2377 
<1&0> 


xb&? 
<79> 
<91> 
797 
<238> 
<233?> 


<171> 
<F0> 


2307 
<“144> 


“177? 


x171> 
<48> 


<218> 
<75> 
<537> 
<Z201> 
<2097> 


<12> 
<5> 

<12> 
<57> 


<141> 


<111> 
<AF> 
x34> 
<112> 
<148> 
<157> 
“2227 
A2> 


xB3> 

*1122 
2373 
<150> 
<240> 


A 



































programme 


80 GOSUBS: GOSURB:CHARL,8,7,"TRVSON SPACE 
23 RUVSGFEI” 

81 CHAR1,8,8,"{RVSON SPAGEIHONETSPACEIIN 
(SPACEISCREENTSPALEIDEL"ISPACE2 RVSOFF}“ 
82 CHAR1,8,9,"{RUSON SPACEIDELCSPACERI\C 
SPACEHDELETEISPACET RUSGFF}" 

83 CHAR1,8,10, "{RVSON SPACEIESCISPACEL} N 
CSPACEIMENUESSPACEILTSPACES, RVSOFF}" 

84 CHAR1,8,11,"{RVSDN SPACEIFLTSPACESINT 
SPACE} IN{SPACEIBANKISPAGE>LISPACES RVSOF 
Er u 

85 CHAR1,B,12,”CRVSON SPACEIFZISPACESINT 
SPACE} INTSPACEIBANKTSPACE?ZISPACEA RVSOE 
Er" 

85 CHAR1,B,13,"XRVSON SPACEIFSLSPACESINT 
SPACEIMENUETSPACEZILNSTSPACEI AVSOFFY" 
37 CHAR1,8,14, "{RVSON SPACEIHELPISPACEZ} 
\ISPACEFTHIS{SPAGEIMENUETSPACEZ RVSOFFY" 
BA CHAR! ,B,1S,"CRVSOR SPALEIRTNISPACESEN 
SSPACE}TEXTISPAGERNKSPACEIMDDETSPACEZ RV 
SOFF}" 

39 CHAR1,8,16,"{RVSON SPACE2Z RVSOFFI":G 
ETKEYB$: BOSUB7+GDTUL21 

90 GOSUBS: GOSUBB:CHAR1 ‚9,8, "{RVSOH SPACE 
23 RYSOFEF" 

31 CHAR1,9,9," IRVSOH SPACEIDELTSPACES NT 
SPACE>WINDOWISPACEIDEL"{SPACE2 RVSOFF}" 
92 CHAR1 „8,10, "IRVSON SPAGEIESCHSPACELN 
XSPAGEIMENUEISPACEIPESPACES RUSOFF}" 

73 CHAR1,E,11,"TRVSON SPACEISPETSPACEAFN 
{SPACEIDRAWISPACEI RVSOFF}" 

94 CHAR1,8,12, "{RYSOH SPÄCEIFLCSPACESINT 
SPACE}SCROLLING{SPAGES RVSDFE}" 

95 CHAR1,8,13, "{RVSON SPACEIFSCSPACESINT 
SPACE?MENLIETSPAGEZIINSCSPACES. RUSOFF}" 
96 CHAR1,8,14,"{RVSON SPACEIHELPCSPACEZ} 
\ESPACEITHISCSPACEIMENUELSPACEI AVSGFF}" 
97 CHAR ,B,15,"{RVSON SPACE} L\FLSPACESIN 
LSPACEISELECT (SPACEIPICT"TSPACE RVSOFF}" 
98 CHAR1,8,16,"{RFSON SPACEZI RUSBFEI" RG 
ETKEYB$: GOSUB7: G0T0157 

99 LO=1:G60T0101 

100 LO=0 

101 TRAP222:SCNELR: INPUT" DOHNZ RVSOR SP. 
ACEIFILENAMEISPAGE RVSOFF SPACE2Y"3FAF 
102 IFLEN{FA$) >I4THEN101 

103 POKE1697 ,LEN (FA$) POKE172S,LENLFAS) s 
IFLEN{FASI=OTHENLOS 

104 TRAP222: FORI=1TOLEN{FA$} aPOKESOS+I,A 
SC(MID$ (FA$, 1,1) ) sNEXT:SCNELR 

105 IFLO-1THEN197:ELSEGOSUBF 

106 POKE239 ,0:BGETKEYBS$: IFLO=OTHENSYS1713 
IFLO=1THENSYS1489 

SCNLLR: 601067 

GOSUBF:POKE239 ,0:GETKEYB$ 

TRAP222: IFPEEK (15359) < >254THENG7 






































REM--- Hm 


REM------ DRUCKERROUTINE mom 


REM+=— nn mn 


SYS153601 G0OT047 

120 Wi=PEEK (BA+40#Y+X) = IFWI<>SZTHENY=Y+1 
» IFY>21 THENY=3 

121 X1=X: Y1=YıW=32: POKE239 ,0: IFX>38THENX 
=3: CHAR1, X, Ya» "_"JELSECHARI KR, Ys "_" 

122 TRAP222: Mk=01 GETISs TA=PEEK (198) s IFTA 
=BOTHENCHARI „Xu Ys "TSPACEF" 

123 IFTA=57THENSCENCLR: SOTD124 

124 IFTA=OTHENCHARL, KuYa"tSBACEI "IX =xX+13 
X1=X:60T0121 , 





<209> 
x186> 
2437 


<237> 


x216> 


<107 
<218> 


<107> 


<Fi> 


2547 


227» 


<x67? 
<17> 
<125> 
<174> 
“2277 
s11&> 
<b1> 
<190> 
<15> 
<3a> 


1773 
<55> 


<196&> 


<131> 
«“210> 


<215> 


KAR3r 
<78> 

<110> 
2255 

<104> 
«105% 
«196 
<107> 
<108> 
<a: 

<110> 
<111> 
2250> 


603 
<31> 


<156> 
<177> 


‚2140> 


IFTA=&THENGOTOG1S& 
IFTA=3THENGOSUBSBO: GITOL122 
IFTA=4THENGOSUBS: GOSUBB: 6ATO122 
IFTA=STHENGOSUBS: GOSUBB: GDTUL22 
IFTA=52THENGOSURS: GISUBB: GOTOS7 
IFIs=" <UP3"THEN B=1:2Y=Y—1 
IFJS="<DONNF"THEN BeiıVv=Y+l 
IFIS="{LEFTI"THEN B=elsX=%-1 
IFIS="{RIGHTY"THEN Beil: X=X+1 
IFTA=1THEN141 

IFY<1THENY=23 

IFY>Z3THENY=1 

IFX<3STHENX=39 

138 IFX>38THENX=3 

139 IFBTHENPOKEBA+40#Y1+X1,WiW=PEEK (BAt4 
ORY+X) sCHAR1,X,Y,"_"3X1=X: Y1=Y:B=0 

140 GOTOL122 

141 TRAPFZ222: POKE239 „0: Dt="":C$=""sCHARL, 
X,Ys"iRVSON SPACE RYSBEEY® 


125 
126 
127 
128 
127 
130 
151 
132 
133 
134 
135 
154 
137 








142 GETC$: IFC$=""THEN142 

1433 IFC$=CHR$ LI) THENISS 

3144 IFASC(CH =213THENES="L":G0T01553 
145 IFASC (CH) =184THENCS="LF"36RTD153 
146 IFASC (C$) =207THENC$=" 1": 6070155 
147 IFASE (CS) =185STHENC$H="KT":GOTO1SS 
148 IFE$S=CHR$ (20) THENGOTP1SS 

149 IFC$="{SPACEY"THEN153 

150 IFASE (CHI SASDRASC (CE) >IOTHEN142 
151 IFASCICH=47THENI42 

152 IFASC (C$I 46 THENCH="*" 

153 D+=D$+C$: IFLEN (D$) +X>37THENISS 
154 CHAR1,X,Y,DS+"{RVSON SPACE RYSOFFYN: 








E0T0142 

155 CHAR1,X,Y,D$s+" ISPACE}" :GDTO120 

156 CHAR14%,Y, " TSHIFTSPAGER" S IFYFZOTHENY 
=20 

157 CHAR1,X,Y,"#"2X1=K: Yi=Ys IFNK=O0THENGO 
supi 

158 TRAP222:GETIF: E=VAL (FF) : DZ=PEER (1783 
s IFD2=3THENGOSLIBFO: MK=0: MO=1: ZEH=0:G0T01 
57 j 
157 
1 
1&0 
161 
162 
163 
164 
165 
BR. 
157 








IFD2=-52THENMO=0: ZCH=01 GOSUB16:50T012 


IFJIS="#" THENGOSLUB2&: BOTOAST 
IFD2=6THENGOSUBIS 

IFD2=0THENBOSUB1S: 6010157 
IFN2=40THENI77 

IFD2=43THENB=1: Y=Y-1 
IFD2=40THENB=1: Y=Y+1 
IFD2=4BTHENB=1:X=X-1 

IFD2=51THENB=1 :X=X+1 

168 IFE>OTHENGOSUB32: GOTO157 

169 IFD2=4THENGOSUB16: CHAR1 ,X,Y," {SPACE} 
"+ SY5570781 5078157 

170 IFD2=STHENGOSUB16ECHAR1 KR, Y, "ISPACEH 
"59557092: 6010157 

171 IFY<1THENY=20 

172 IFY>2OTHENY=1 

173 IFX<STHENX=36 

174 IFX>S6THENX=3 

175 IFBTHENPOKEBA+40#Y1+X1 ,WıW=PEEK (BA+4 
O8#Y+X) 2 CHAR1,X, Y,"#"2X1=X: Yl=V:B=0 

176 G0T0158 

177 TRAPZ22: GOSUB24: CHAR1,10,23," IRVSON 





FLASHON>DAUERZEICHENMODUSTELASHOFF RVSOF 


Er" 

178 GETT$ 

179 IFT$="<RIGHTY"THEN185 
180 IFT$="{LEETY"THEN187 
181 IFT$="{DOHN}"THEN18F 
182 IFTS="UPY"THENI91 


Gompute mi 


«115> 
<A1> 
<11> 
257? 
<71> 
<141> 
<124> 
“187> 
<172> 
<211> 
<51> 
*65> 
<«106> 
“105> 


<144> 
<215> 


<210> 
<61> 
<215> 
<153> 
<255> 
<218> 
<146> 
<A3> 
<102> 
<80> 
<228> 
<224> 
<31> 


<197>. 
<148> 


<118> 


<187> 


<251> 


<17> 

<224> 
<101> 
<85> 

<112> 
<191> 
<1597> 
<197> 
<146> 
%#220> 


<9A> 


<246> 
<60> 
<8&> 
<124> 
<131> 


<220> 
<26> 


<104> 
<105> 
<200> 
<223> 
<174> 
<97> 


‚8/86 


— 








183 IFPEEK (178) =40THENMK=C: MO=0: ZCH=0:G0 
10157 

184 G0T0178 

185 CHARL„X,Yy "N" XeX+t: IFX>SSTHENN=SG 
186 CHARL3X,„Y,"#"sX1=X: YI=YıGDT0178 
187 CHAR1,X,Y,"N"3X=X-1: IFX<1LTHENX=1 
188 CHAR1,X,Y,"#"2X1=X:Yi1=Y:607T0178 
189 CHAR1,X,Yy"!"2 Y=Y+L: IFY>LITHENY=19 
190 CHAR1,X,Y,'#":X1=X: Y1=Y:60T0178 
191 CHAR1,X,Y,"!"3 V=Y-1: IFYXITHENV=1 
192 CHARI ,X,Y,"#"sX1=X: Yi1=V:G0T0178 
193 FORI=1T08:KEYI,"":NEXT:COLOR1 ,2:C0LO 
RO,1:COLOR4,1 

194 POKES1 255: PIKES2,47 

195 POKESS, 255: POKES&,47:CLR: DIMA$ (45) 
196 Z=2:M0=0 
197 1F=65298: ZA=65299: ZM=45287 ıBA=3072 
198 Astet nA Dettaar(ZI="t" 

199 ANETTE AL 

200 AN"! HASM=T, NASEN ="N" 

201 AIDA I" EA Rt 





202 AS(LSI="——"rAsl14)=" | XDOHN LEFTI-":A 
(44) ="LF" 

203 AS(1SI="_{DOUN LEFTII"AAStLOI=" "A$ 
17120 


204 AN =" LA MER EAFl20)="<=t 
205 A$tZ1)="7{DAHN LEFTITROFCTDI=I "EA 
$1235)="—." 

206 ASIZM="STDOHN LEFTII"TASCZMEN iA 
BZ 5 i 

207 A$(27)="UP} TXDOHN LEFT2YTISHIETSPA 
CE DOHN LEFT2)e_" 

208 A$(ZB)="it4P}] VIDBHN LEFT2 SHIFTSPACE 
3 .DOHN LEFT2IOK" 

209 AFt29)="tUP}* ITDGHN LEFTZYS{SHIFTSPA 
CE DOUN LEFTZIH"EAFLAOI="TSPACEF” 

210 ASZOI="iUP}HI{DOHN LEFTZ SHIFTSPACE 








* % 


Mit dem C-16/116 
FW Ne/lıleietelch 


» Balloon 





Sie sind Pilot in einem Jagdgeschwader 
und haben die Aufgabe, feindliche Beob- 
achtungsballone abzuschießen. Aber Ihr 
Munitionsvorrat ist begrenzt und zu allem’ 


Shoot * 


Unglück schießen die Ballone zurück. 
Beweisen Sie Ihr Geschick im Umgang mit 
Ihrem Computer und bewahren Sie Ihr 
Land vor feindlicher Spionage, 


programme 





IWEDOHN LEFTZIE "EA CZII =" 1" 

z11 AFISZI=et SAFE LIDITUMLMEAStAaLI="L" 
212 AS(IN="YLEAFLITIEr EAST) =" A" 
213 ASCITI = al "EAFLIZI =" I" 

214 AFCIGI=" WIEDOHN LEFTII Ih as AFIN=" 


{7} 
7 


215 X$t1)="BILDISPACEIERSTELLEN":A$(45)= 
EP eT 3 

216 K$(Z23="BILD{SPACEILADEN" 3 X$(5I="LAYO 
D u 

217 X$t3)="BILD{SPACEISPEICHERN":A$(45)= 
dd Te | » 

218 X$t4)="BILD{SPACE}AUSDRUCKEN" sGOSUB2 
20 

219 POKEZF ‚OzPOKEZA, 49: FOKEZM,8:60T0221 
220 IFPEEK (1630) =00RPEEK { 1430) =255THEN22 
&: ELSERETURN’ 

221 FORI=13312T013319:POKEI „3S2:NEXTSFORI 
=14326T014543: POKEI „323 NEXT 

222 TRAP222:SENELR:CHARI,2, 10," ERVSON EL 
ASHON>K<ELASHOFF RVSOFE, SPACEIASSETTENES 
PACE}IODERISPACE RVSON ELASHONIDIELASHOFF 
RVSGFF SPACE} TSKETTENBETRIER":GETKEYB$E 
223 IFBS="K" THENPOKE1872,1:POKEI716,1:G0 
T047 

224 IFBS="D"THENPOKE1&92, 8: POKE1716,8:60 
1047 

225 GDTO222 

22& SCNELR 

227 CHAR1,10,10,"TRVSON FLASHUÜN SPACEIDA 

















TAFEHLER{SPACEF CI CIIFLASHOFE, SPACE RW 


SOFF>"=FORI=1T05555: NEXT: NEW 
228 REM 
227 REM 


u 


*COFYRIGSHF BY DIETER SCHEEL#+ 


———-—- — roll oon lo... 0... 


230 REM 
ENDE DES LISTINGS 


% 


Zum Programm: 


<242> 
<205> 
&7%> 
<210> 
<34> 
<179> 


%147> 


2257 . 


37 > 
<193> 


<127> 


Ss299> 


<t180> 


s117> 


xg6> 


> 


<202> 


<178> 


<115> 


#245 
<191> 


% 





Das Programm besteht aus zwei Teilen. Im 
ersten Teil wird das Spiel vorgestellt. Der 


zweite Teil wird dann automatisch nach- 
geladen und gestartet. Dieser zweite Teil 


Start frei! 


Compute mib 


ist im Grafik-Modus programmiert und 
belegt ungefähr 1,7 KB Speicherplatz. 
Gesteuert wird mit Joystick in Port 1. 








44 





Programme 


C-1& LISTINGB + CHECKSUMMEN (0C V1.0) 


5 REM ### {C} BY WOLFGANG MARKERT ### 

& COLOR4,14,4:C0L0RO,7,4: COLOR1,2 

19 SCNELR 

20 FRINT" {DOWN3>"sFORX=16TD28:PRINTTAB (X 
JVLRVSON SPACE RVUSOFFF"YS:NEXTA 


30 FORX=1TO4: PRINTTABLL1OF"CRVSON SPACE R 
VSOFF}"3a2PRINTTABtZO) "IRVSDON SPACE RVSOF 





F3"LNEXTX 

40 FORX=101030: PRINTTAB (X) "{RVSON SPACE 

RVSOFF>”"32NEXTX 

50. PRINT" CHOHE} "PRINTTAB (144 " CDGONN5}BAL 

LOONTSPACEISHOOT" 

&0 FRINTTAB(IS} "IDGQUNIO RVSON SPACEIWLSP 
AGE RUSOEF SPACE}WEITER" 

70 GETKEYA$ 

80 IFA$s="W"THENFO:ELSETO 

79 SENELR 

100 PRINT"”{DOHN2 SPACEISIELSPACEFSINDESF 

ALCEYPILOTTSRACEIIN{SPACEHEINEM{SPACEYJAG 

DGESCHWADER" ; 
110 PRINT”"CDOHN SPAGEFUNDTSPAGEIHABENISP 

AGEIDENTSPACEFAUFTRAGTSPAGEIFEINDLICHETS 

PACEFBE-" 

1204 PRINT"IDOWN SPACEYDBBACHTUNGSBALDNET 

SPACEFABZUSCHIESSEN. ABER" 

130 PRINT”"{POHN SPACEIDIETSPALEIAUFBABET 

SPACEIWIRD SPACE FDADURCHTSPACEIERSCHWERT 
" 
































” 
140 PRINT" IDEHN SPALCEIDABSSISPACEISTETSPA 
GEYNURTSPACEHEINENTSPACEIBEGRENZTENISPAC 
E}SCHUSS-" 
150 PRINT"<IDOHN SPAGEINORRATISPAGCEIBELIS 
PACEISICHISPACEFHABEN. AUSSERDEM SPACE” 
160 PRINT"{BOHN SPACEIWERDENTSPACEFISIETS 
PACEYVOMTSPALE}BALLONISPACEFIBESCHOSSEN, ® 
170 PRINT"{DOHN SPACE}IWENNTSPATEISIE{SPA 
CEFINTSPACEYISEINEtTSPACEISCHUSSWEITEISPAL 
EIKOMMEN. " 
180 PRINT" TDOHN2 SPACE}ISTEUERUNGTSPAGCEIM 
IT{SPACEIJOYSTICKTSPACEFIIN{SPACEIPORTISP 
AGEI1" 
190 PRINTTAB (14) "{DOUNIVIEL{SPACEFIGLUECK 
ım 
200 PRINTTAB(15)"XDOHN RVYSON SPACEIWISPA 
CE RVSOFF SPACE}WEITER" 
210 GETKEYA$: IFA$="W"THENZ220:ELSEZIO 
220 SCNCLR 
230 PRINT"JETZT{SPACEIWIRDISPACEIDERTSPA 
CEI2. TEILTSPACEFEINGELADEN" : FORX=1 T0250G 
:NEXT 
240 PRINT" {LCLEARYNEW" = PRINT" TDOHNZILOAD" 
s PRINT" {HONE}"sPOKE239 „dsPOKE1319,13:POK 
E1320,13 
250 POKE1321 ,82: POKE1322,B5ıPOKE1323, 78: 
POKE1324,13 

ENDE DES LISTINGS 




















202: 


10 GRAPHICZ, 1:V0L8:8=100:R=40 
20 COLORO,7,5:COLOR1,2:COLOR2,1:C0LORS,& 
‚6: COLOR4,14 

30 CIRCLEI,9,9,8,BıPAINT1,9,97:5SHAPEA$, 1 
‚2,20,18 

40 GSHAPEA$,30,11:65HAPEA$ ‚80,301 BSHAPER 
$,125, 10: SSHAPEA$, 150,40 

50 DRAW3Z,0,185T050, 1651070, 18070100, 180T 
0140, 17510160, 190: PAINT3,0,197 


173%» 
99 >— 
<242> 


<101>- 


<191> 
s61> 
<194>- 
&234> 
<44> 


<49> 
<äh> 


33} 


<B4> 


x224> 


<154> 


«75> 
<107> 


<98> 


<141> 


24775 
<169> 
1497 


972” 
<196> 


<100> 


1695 


<241> 





<155> 
<2B8> — 
<30r— 
<139>» 






&0 BOX1,73,150,81,185, ‚1: FORX=155T0180ST 
EPS: FORY=74TOBOSTEFZ: DRAWZ,Y„XzNEXTY=SNEX 
TX 

70 SSHAPEB$,73, 150,81, 185: 55HAPEB#,92,15 


0 
80 BOX1,133,170,138,175, ,1:DRAW1 , 132,169 
70134, 16510137, 165101397, 147T0132,169 
90 PAINT1,134,168:DRAW2,134,173:DRAW2,13 
7,173710137,175 
97 SSHAPEZ$,0,100,8,104 
100 DRAW2,2,104T07, 104108, 103T07,102T03, 
102T02,100T01,100T02,104 
110 PAINT2,4, 103: FORX=4T06STEP2: DRAW1,%, 
103: NEXT 
117 SSHAPEY$,152,72,159,91 
120 SSHAPEC$,1,100,8,104 
121 CIRCLE2,77,149,1, 5270,90: CIRCLE2,96, 
149,1, ,270,90 
122 CIRCLE1,155,80,3:PAINT1, 155,80: DRAWi 
‚152,8010155,89T0158 ,80:B0X2,154,90,156, 
Ayıl 
123 SSHAPED$,152,72,158,91:U=72 
130 X=2: Y=100: IFR<SATHENR=4 
140 FÜRL=OTOFE IFX>1SBTHENR=R-3:G0T0130:E 
LSEX=X+1 \ 
141 GSHAPEZS,X-3,V 
142 1FJOY(1)=1THENGOSUB1BO 
143 IFJOY t1)=STHENGOSUBZOO 
144 IFJOY (1) >=128THENBOSUB24035=S-1: IFS= 
OTHEN300 
145 IFY=U4+SORY=U415THENGOSURZ&O 
150 GBSHAPEC®,X,Y:SDUND3,700,6 
170 NEXTL: F=1NT (RND(1) #R) +5: BSHAPEYS, 152 
„Us U=INT {RND (1) #80) +60: GSHAPEDS, 152, U 
179 G0TO140 . 
180 IFY<SSATHENY=SBTELSEY=Y-1 
190 RETURN 
200 IFY>IS0OTHENY=130:ELSEY=Y+1 
210 RETURN 
240 DRAWZ2,X+7,Y+110159,Y+1 
245 FORK=1T018: IFY=U+KTHENSOUND1 ‚500,3: A 
B=AB+1: GSHAPEY$,152,U:U=0 
246 NEXTK 
250 DRAWO,X+7,Y+1T0159,Y+1z2 RETURN 
260 BX=INT (RND(1)#19) zDRAWI „152, U+BXTOO, 
U+BX 
265 FORK=0T04: IFBX+U=Y-+KTHENSOUNDZ, 1000, 
50: G0T0300: ELSENEXTK 
275 DRAWO, 152,U+BXT00,U+BX: RETURN 
300 GRAPHICO:SENELR=SPRINTTAB (15) "{DOHN2 
ELASHON3GAME TSPACEIOVERTFLASHOEFF" 
305 IFS=0THENPRINT” {BOWNFDU{SPAGEIHAST{S 
PAGE>KEINE{ZPACE3MUNITION{SPACE>MEHR" 
310 FRINT" {DOHNFABSCHLUESSE: "zAB 
320 PRINT"NOCH{SPACEFEIN{SRACEISPIEL?ISP 
ACEF(I/N)" 
330 GETKEYA$: IFA$="J"THENRUN 
340 IFA$="N"THENEND:ELSEGOTOSSO 

ENDE DES LISTINGS 

EDRUCK:F.B./0.8.] 














C-16 + C-116 + plus $ 


«27> 
<146> 
<210 > 


L36> 
<239> 


«177>” 


<15B> 
97, — 
<2197— 


<202>= 


au — 
<71>—= 
<147> 


x242> 
x224 20 
23, 77 
<209> 


<48>— 
«17477 
<Bb> 


<218> — 
<250> 
<177 7 
7er = 
<9b> 
<96> 
<150* 


<23> 
<1a> 
I2ree 
<151> 


<255>— 
Bart 


<232> 


CV 
<is>— 


<162>” 
<223>% 


<1974 


Wir suchen die besten 


Programme für die 
64 K-Versionen 
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6502/6510 Assemblerkurs 


Teil 15 





Der Kurs für den G-64/G-128/C-16 und V6-20 


Der letzte Befehl ... 


TYA Transfer Index-Register_Y to Akkumulatar (Übertrage Y-Register in Akkumutatar) 
Dieser Befehl bringt den Inhalt des Y-Registers in den Akkumulator. Das Ursprungs-Register wird nicht verändert. 


‚Adressierung 
Impliziert 


Hex 
98 


76543210 
N VBDIZC 
x x 


Jetzt geht's erst 
richtig los! 


Endlich ist.es geschafft, alle Befehle des 
6510 (6502) wurden aufgelistet und er- 
läutert. Wir, können nun mit dem interes- 
santeren Teil unseres Kurses beginnen. 
Mit einer ausführlichen Beschreibung des 
inneren Aufbaus des G-64, sowie kleinen 
Beispielprogrammen, möchte ich Sie in 
die Technik der Assemblerprogrammie- 
rung einführen. Bei den Erläuterungen 
des G-64 Systems erfolgt immer ein Blick 
auf die kleineren Brüder G-16/VG-20, so 
daß ein eventuelles Umschreiben durch- 
aus machbar ist. Bevor wir,jetzt zu tief in 
das Innere des Rechners versinken, 
möchte ich doch erst einmal das grundle- 
gende Konzept des Rechners aufzeigen. 


Konzept des 6-64 


Wir wollen Sie jetzt nicht mit Fachaus- 
drücken oder komplizierten elektro- 
nischen Schaltelementen bombardieren, 
jedoch sollte man einige Grundkenninis 
der Hardware besitzen. 


Bytes Syntax 
1 TYA 


ENDE der alphabetischen Befehlsauflistung 


Wie wir schon in unserem Kurs erfahren 
haben, erlaubt der Prozessor 6502, sowie 
auch der 6510, eine Adressierung von 
65536 Speicherstellen. In der Regel unter- 
teilt sich dieser Bereich in den Festwert- 
speicher (ROM) und den Schreib-Lese- 
Speicher (RAM). Der C-64 war einer der 
ersten Rechner welcher diesen Speicher- 
raum {ROM) voll ausnutzte und noch eini- 
ge zusätzliche Feature’s unterbrachte. An 
diesen Feature’s liegt es nun, daß der 
Rechner enorm flexibel, jedoch auch 
schwer programmierbar ist. Das Problem 
besteht darin, daß eigentlich die gesam- 
ten 64k (65536 Bytes) als RAM (Schreib- 
Lese-Speicher) ausgelegt sind. Diese Kon- 


figuration würde ohne ROM jedoch völlig 


unsinnig sein, da weder Disketten-, Kas- 
setten-Befehle ausgeführt werden könn- 
ten. Um diesen Mangel zu beheben, ver- 
wendete Commodore eine Art „3-D-Spei- 
cher“; sie setzte einfach das ROM parallel 
zum RAM. Das ist noch nicht alles, um Pe- 
ripherie wie Drucker, Kassette oder Dis- 
kette anzusprechen, werden weitere Bau- 
steine benötigt. Für diese werden eben- 
falls Speicherplätze benötigt, der soge- 


CSompube mib 


nannte W/0-Bereich. Um auch dies zu er- 
möglichen, wurde es einfach „Hucke- 
pack“ aufgesetzt. Auch mit dem Zeichen- 
satz, weicher beim G-64 adressierbar ist, 
wurde nach diesem Verfahren gehandelt. 
Das Ganze hört sich für den Anfänger si- 
cherlich etwas kompliziertan. Um uns das 
Ganze etwas zu verdeutlichen, haben wir 
den Gesamtspeicher in Skizze 15,1 dreidi- 
mensional dargestellt. 


Bereich $0000-SOOFF -255): Zeropage 

Dieser Speicherbereich wird als Zeropage 
bezeichnet. Da der 6502 mit Hilfe dieser 
Adressen sehr leistungsstarke Adressie- 
rungsarten erlaubt, ist dieser Bereich sehr 
gefragt. Leider ist dieser Bereich fast aus- 
schließlich durch das Betriebssystem und 
den Basic-Interpreter belegt. Dieses Man- 
ko hat jedoch auch seine Vorteile, so las- 
sen sich durch gezielte Poke’s sehr nützli- 
che Effekte erzielen. Wir werden später 
noch eine genauere Auflistung der einzel- 
nen Speicherstellen vornehmen. Beim 
Prozessor 6510 haben die Speicherstellen 
OD und 1 eine Sonderfunktion, sie steuern: 

















kurs 


einen spezialen Ausgabeport des Micro- 
processors. Aber auch darauf werden wir 
später noch genau eingehen, gerade in 
Speicherstelle 1 liegt das Geheimnis des 
C-64 verborgen. 


Bereich $0100-$03FF (256-1023): System- 
adressen + Puffer 

Auch dieser Bereich wird weitgehend vom 
Betriebssystem belegt. Unter anderem 
werten hier Sprungvectoren, Stack und 
Kassettenpuffer abgelegt. Auch diesen 
Bereich werden wir noch genauer unter 
die Lupe nehmen. 


Bereich $0400-$07E8 (1024-2023): Bild- 
schirmspeicher 


- Nach dem Einschalten des Rechners wird 


in diesem Bereich der zu erscheinende 
Text abgespeichert. Durch Beschreiben 
dieses Bereiches mit Poke können blitz- 
schnelle Bewegungen’ erzeugt werden. 
Beachten Sie beim Beschreiben des Bild- 
schirmes, daß hier nicht der ASCII-Code 
sondern. ein spezialer Commodore-Bild- 
schirm-Code benutzt wird, siehe Skizze 
15.6. Die Skizze 15,5 zeigtnoch einmal et- 
was genauer den Aufbau des Bildschirm- 
speichers, 


Bereich $O7F8-SO7FF (2040-2047): 
Spritevektoren 

Diese 8 Speicherstellen werden vom Vi- 
deocontroller als Spritezeiger benutzt. In 
jeder der 8 Speicherstellen gibt eine Zahl 
zwischen 0 und 255 an, wo das Bitmuster 
für die entsprechende Sprite-Nummer ab- 
aelegt wurde. Um aus dieser Zahl die tat- 
sächliche Speicheradresse zu erfahren, 


_ müssen Sie diese Zahl mit 64 multiplizie- 


ren. Wenn Sie aufgepaßt haben, werden 
Sie bemerken, daß so nur etwa 16k als 
Spriteadresse in Frage kommen. Dies ist 
richtig, allerdings läßt sich dieser 16k Be- 
reich beim G-64 frei wählen. Wie dies ge- 


‚schieht, werden wir beim Auflisten der VO :! 


Adressen erfahren. 


Bereich $0800-S9FFF (2048-40960): 

Freier Speicherplatz 

Dieser Bereich steht vollkommen dem An- 
wender zur Verfügung. In der Rege! wer- 


Skizze 15.1 Kurs 


Speicheraufteilung 
ROM’RAM 


c64 


den nach dem Laden von Kassette oder 
Diskette die Basic-Programme in diesen 
Speicherbereich gelegt.. Selbstverständ- 
lich läßt sich dieser Bereich auch für Ma- 
schinenprogramme nutzen. Beachten Sie, 
daß bei eingesteckten Erweiterungen in 
Modulform eine andere Belegung gilt. In 
diesem Fall wäre die Obergrenze nämlich 
$7FFF. 


Bereich SA0DO-SFFFF (40960-655836): 
Freier Speicher für MC-Code 
Dieser Bereich ist nach dem Einschalten 





eigentlich nicht vorhanden, denn der /0 
Bereich sowie das ROM überblenden fast 
alle Adressen. Die einzige Ausnahme ist 
der Bereich $C000 bis $CFFF Wird eine 
andere Speicherstelle mit Peek ausgele- 
sen, so erhält man nicht den Inhalt dieses 
RAM’s, sondern den Inhalt des ROM’s oder 
des 1/0 Bereiches. Ein Poke-Befehl 
schreibt dagegen mit Ausnahme des 1/0 
Bereiches immer in das RAM. Dieser Vor- 
gang beruht auf einer hardwarebedingten 
Verdrahtung. Für den Basic-Programmie- 
rer läßt sich leider dieser Bereich nicht 
nutzen, da ein Ausblenden des ROM’s un- 


SPRITE 
POINTER 


Adreßbereich 0 - 2048 
15.2 










I 


Zn z - y 
GE De 


BASIC-RAM 








ARRAY 





15.3 
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ter anderem den Basic-Interpreter außer 
‚Kraft setzen würde. Auch in Maschinen- 
i sprache muß vorsichtig mit diesem Spei- 


cher umgegangen werden, beachtet man 
jedoch alle Interruptquellen, so läßt sich 
der RAM-Speicher auch unter dem ROM 
sehr gut nutzen. Eine andere Möglichkeit 
besteht darin, diesen Speicherbereich für 
Grafik zu benutzen. Auf diese und andere 
Eigenschaften werden wirnoch eingehen. 


Bereich $AO00-SBFFF {40960-49151): Basic-In- 


I terpreter 
Nach dem Einschalten des Rechners wird 


in diesen 8k Bereich der Basic-Interpreter 
eingeblendet. Er dient zum Ausführen Ih- 
rer Basic-Programme. 

Literatur: 


6502 Mierocomputer-Programmierung, 


FE Peter Heuer, Hofacker Verlag 


6502 Programmierung in Assembler, 
Lance A. Levenihal 


| 64 Intern, Angershausen, 
' Becker, Englisch, Gerits, 


Data-Becker Buch, Düsseldorf 


| 6502/65002, Christian Persson, 
| Heinz Heise Verlag 


Butterfield's Lehrbuch, 
J. Butterfield, Hanser-Verlag 


Nächsten Monat: 


Die interne 
Verwaltung 


der Speicher- 
konfiguration 


En — a a = m; 





BILDSCHIRM SPEICHER TABELLE 


SPALTE 
20 


15.5 


BILDSCHIRM CODES 
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Ein Y-Adapter für den CPC 


Endlich kann mit 2 Standardjoysticks am Schneider gespielt werden! 


Mit einem kleinen Hindernis hat Schnei- 
der sich auf dem Joystickmarkt für seine 
Geräte ein Wettbewerbsvorsprung ver- 
schafft. Die Ports entsprechen nicht den 
gängigen Normen, und so war man auf die 
nicht sehr stabilen Schneiderjoysticks an- 
gewiesen. Folgende kleine Bauanleitung 
schafft da Abhilfe. 

Was Sie zum Bau des Adapters benötigen, 
sind drei Stecker. Ein neunpoliger weibli- 
cher Stecker, wie er sich am Joystick-Ka- 
bel befindet und zwei, ebenfalls neunpoli- 
ge, männlich Stecker. Diese drei Stecker 
erhalten Sie in jedem Hardware-Fachge- 
schäft. Außerdem benötigen Sie noch 14 
kurze Kabelstücke (aber nich allzu kurz), 
wie sie beim Basteln verwendet werden, 
einen Lötkolben (wenn möglich 30 Watt), 
Lötzinn und Lötfett. 

Kennzeichnen Sie sich vorher die zwei 
männlichen Stecker, damit Sie nacher 


wissen, welcher von den beiden Joystick - 


1 und Joystick 2 ist, 

Gehen Sie nun folgendermaßen vor: 
Zuerst löten Sie an die Pins 1 bis 4 und 6 
bis 8 der beiden männlichen Stecker je- 
weils ein Kabelstück an {in Bild 1 sehen 
Sie die Pin-Belegung des Steckers). Pin 5 
wird zur Joystickabfrage nicht benötigt, 
es braucht daher auch nicht verlötet wer- 
den. Dann löten Sie die Enden der Kabel, 
die an die gleichen Pins angeschlossen 
sind zusammen (1 zu 1, 2 zu 2,3 zu 3, 4 zu 
4, 6 zu 6, 7 zu 7). Nur die Kabel an Pin 8 
werden nicht(!} zusammengelötet. Da- 
nach löten Sie die oben aufgezählten Ka- 
belpaare an die entsprechend numenier- 
ten Pins des weiblichen Steckers. Pin 8 
von Joystick 1 wird mit Pin 8 von Joystick 
2 mit Pin 9(!) des weiblichen Steckers ver- 
bunden. Den Plan können Sie in Bild 1 


nochmals sehen. 

Nun haben Sie bereits die Lötarbeiten hin- 
tersich. Lassen Sie die Lötstellen noch ab- 
kühlen, danach wollen wir den Adapter te- 
sten. Stecken Sie diesen dazu in den Port 
an der Rückseite des CPC und schließen 
Sie Ihre zwei Joysticks an den Adapter. 
Nun bewegen $ie Joystick 1 nacheinan- 
der in folgende Richtungen: 

oben, unten, links, rechts, Feuer 


nn nn nn an nn a an 


Tabelle l: Kontrollzeichen 


Richtung Joy 1 Joy. 2 
en 
oben rt 6 
unten SR ; 5 
links arg‘ r 
rechts ne ‚et 
Feuer x g 


nn 


Die Zeichen die daraufhin auf dem Bild- 
schirm erscheinen vergleichen Sie mit 
den in der Tabelle abgedruckten. Diese 
müßten übereinstimmen . Wiederholen 
Sie darauf diesen Vorgang mit Joystick 2 
und vergleichen Sie wieder die beiden 
Zeichenfoigen. Sollten die Zeichen genau 
umgekehrterscheinen, d.h. die Daten von 
Joystick 1 entsprechen den Daten von 
Joystick 2 und umgekehrt, dann haben 


Sie diese nur verwechselt, was aber kein | 


Fehler ist und den Ablauf der Programme 
nicht beeinflußt. Auch die JOY-Abfrage 
können Sie ganz gewohnt anwenden. 


Sollte bei Joystick 2 jedocheein „f* anstatt 


ein „g“ für „Feuer“ erscheinen, so haben 
sie einen Lötfehler gemacht, der an den 
Pins 6 und 7 zu suchen ist. Stimmen die 


“Werte der Joysticks mit denen der Tabelle 


überein, so haben Sie nun einen voll be- 
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Bild 1: Der Y-Adapter 


triebsfähigen Y-Adapter. 
Ich wünche Ihnen viel Spaß beim Spielen 
- zu zweit, (az) 


Großer 
Kleinanzeigenmarkt 


in Gompute mit! 
Jetzt noch 
preisgünstiger! 


Nutzen Sie die große Ver- 


breitung von Compute mit 
für Ihre privaten Interes- 
sen —- Ankauf, Verkauf 
usw.!Leser bestätigen uns 
immer wieder den schnel- 
len Erfolg ihrer Kleinan- 
zeigen! 
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programme 


Panzerkampf für Schneider 


Combat 


Sie haben als eine Panzerbrigade den Be- 


fehl, in dem vor Ihnen liegenden Feindes- 
land so viele gegnerische Fahrzeuge wie 
möglich zu zerstören. Mehr über diesen 
Auftrag sagt Ihnen das Programm 
selbst ... (zum Glück handelt es sich nur 
um eine Simulation). 

Geladen wird mit „RUN COMBAT“ ... 

Das Programm wurde sowohl auf dem 
CPC-464 als auch auf dem GPC-664 pro- 
grammiert, getestet und für einwandfrei 
befunden. 


- Um das Programm zu listen wird empfoh- 


len, die Programmteile „COMBAT“ und 
„COMBAT 2“ einzeln zu laden und zu li- 
sten. 





„COMBAT“ zeichnet sich durch hervorra- 
gende Grafik und Geschwindigkeit aus, 
während die Spielidee natürlich nicht die 
allerneueste ist. „COMBAT“ bietet aber 
mehrere Variationsmöglichkeiten, befref- 
fend Geschwindigkeit, und Skill-ievel u.a. 


Noch ein Hinweis: „COMBAT“ benötigt wie 
viele andere Programme auf dem Schnei- 
dereinen Joystick ohne Autofeuereinrich- 
tung, da solche Joysticks der Abfrage 
ständig falsche Werte liefern. 


170 POKE &5200+ {N-1}3#30+INT (P/2) „VAL U"&" 
+MIDE (A$,P,ZI)sNEXTENEXT 


10 OPENDUT"COMBAT"sMEMORY HIMEM-1:CLOSEO 

UT=:MEMORY &ZEFF 

20 ' 

5.0 Yu MG’ & DATA Einlesen 

40 °’ ' 

50 HISC=O:RESTORE 1080:FOR N=45150 TO &5 
1687:READ WsPOKE N,W:NEXT 

&0 RESTORE 270:FOR N=240 TO 255:FOR P=0 
TO 7:3READ W(P) :NEXT 

70 SYMBOL N„W(O) „WIiL) „W(Z2) „WED „WA „WIS 
),Wi6) „WI7TIENEXT 

80 RESTORE 380:FOR N=1 TO 32:READ AtsFÜOR 
P=1 T0 59 STEP 2 

90 POKE &3000+1N-1)#30+INT {P/2) „VALT"K"+ 

MID$(A$,P,2) 1 =NEXT=NEXT 

100 RESTORE 730:FOR N=1 TO &:READ A$:FÜOR 
P=1 T0 59 STEP 2' 

110 POKE &3400+ (N-1) #30+1INT {P/2) „VAL "&" 
+MID$ (A$,P,2)) =2NEXT=NEXT 

120 RESTORE 820:FOR N=1 TO 3:READ A$:FOR 
P=1 TO 59 STEP 2 

150 POKE &4000+ (N-1I#30+INT(P/2) „VALC"&" 
+MID$S(A$S,P,Z2))aNEXTSNEXT 

140 RESTORE 850+FOR N=1 TO SıREAD A$:FOR 
P=1 TO 59 STEP 2 

150 POKE &5000+ (N-1)#30+INT (P/2) „VAL("&" 
+MIDE (AF,P,ZI) ıNEXTINEXT 

160 RESTORE 880:FOR N=t TG 3:READ A$:FOR 
P=1 TO 59 STEP 2 


Compute mi 


180 RESTORE F10:FOR N=1 TO SeREAD A$:FOR 
-1 TO 597 STEP 2 

170 POKE &5250+(N-1)#30+INT (P/2), VAL enge 

+MID$ (A$,P,Z)) zNEXT= NEXT 


200 RESTORE 940:FOR N=i1 TO 3:READ A$s FOR 


P=1 TO 57 STEP 2 
210 POKE &52A0+ (N-1)#30+INT (P/2) „VAL("&" 
4+MID$ (A$,P,2) JE NEXTSNEXT 
220 RUN?COMCLOMZ2” 
230 POKE ADR, (W/2564-INT (W/756) ) #256: POKE 
ADR+1 , INT (W/256) s RETURN 
240 ° 
250 * GRAPHIC-DATA 
260 ' 
270 DATA &00,&00,%&00,%&02,&1F ‚KOF ,&07 ,&7F 
„&00 ,&00 ,&00,&00,&00,&FF ,&80,&E0 
280 DATA &6F „&5F „&3A,&20,%&30,&15,&0F „&00 
„&10,&FB,&AC,&04 ,LOC ,&58 ,&F0,&00 
290 DATA %00,&00,&00,%00,&00,&FF „01 ,&07 
,%00,&00,%&00,&40,&F8,&F0,KEO,&FE 
300 DATA &OB,&1F ,&35,&20,&30,&1A,LOF ,&00 
&F6,&FA,&SC,&04 „KOT ,&AB,&FO,&OO 
310 DATA &00,&00,&00 ,&00,&00,RFF ,&29 ,47F 
»%&00 ,&00,&00,&40,&F9,&FO,BEO,S&FO 
320 DATA &3F „&AF „&27,833,419,&0E ,&06,&00 
„sFB,&FO,„&FA,UFE,B5A,E3C &IB,&00 
350 DATA &00,200,&00,&00,&00,&FF ‚&07 ,&OD 
„E00 ,&00 ,8FC,u46 ,&FA,&F4,UEELDE 
340 DATA K1A,USF ,&7A,455,&5F ‚E26 ,810,800 
E3A,&F6 ,KEC,&DC ,LEB,&FO,&60,&00 
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Ss50 * 

360 ° MEC-Hauptprogramm 

370 * 

380 DATA C3IACI1SAFS2FDSESFSCDCOBECDFCBBF 
13SCFSCDFCBBO1 1000ED42014000EB 

390 DATA EDAZEBFISCEFSCDCOBBCDFCBBFISCCDF 
CBBE1D1TCFDSESO1A000EBOFEBDSES 

400 DATA CDFOBBE1DAFE00C2A030910B0O0CESED2 
2D5SESCDFOBBEIDLCIFEOOTCZAOF0ED 

419 DATA 42CDFOBBFEOOSTELDICOSFEIL1313000 
OCID5SESI13S1I1LS1SCDFOBBEI1D1SZDB 

420 DATA ZFFEO1S7CBSFCFO11000EBOFERCIEDS 
BFEZFZAFEZFOL1OGO1BI1BIBIBCSES 

430 DATA DSEDFOBBDLEITCIFEOOCZFFIOED4ZCHE 
SDSCDFOBBDIELCIFEOOCZFFSOED42 

440 DATA D5SESCDFOBBEIDILFEOOCZFF30012200E 
BOFEBEHDSESCDFOBBEIDITCIFEOOCER 

450 DATA FFSOEBOFEBCESDSESCDFOBBEI1DIC1OIC 


5D532323ESCDFOBBEIDILCIFEOOLZFF 
450 DATA 3S0OEBED42EBCEDFOBBFEOOSTLAFFS0C9Z 


FCIEDSBFEZFZAFCZFSAFT2FCDO630 
470 DATA C92AFBZFEDSBFAZFOL1OBOOEBED42EBC 
DFOBBS2DB2FFEOO037CAZAS1CISFCH 

480 DATA ZAFAZFO11000ED4222FA2FCIEDSBEA2 
F2AFB2F3SEOSCDDEBBCDEABBZEOLCD 

490 DATA DEBBCIDSESSEOSCDDEBECDEABB3SEOIC 
DDEBBE1D1C901B402DSEBEDA2EBD1 

500 DATA 37FOSFC921FEFF22FO2F22ECZF22EB2 
F3EOBCDDEBBEDSBE6ZFZAE4ZFCDS2 

510 DATA 30DA9131CD6630EDSZES2FCDOZZOCDS 
F31D2A231EDSBDSZFEDS3ES2FSEOZ 

520 DATA CDDEBBEDSBE22FZAEO2FED3ZS0DABCS 
1CD66301BEDSZSE22ZFEDOZZOLDSF31 

530 DATA D2CD3S1EDSBDB2FEDSSE22FZEOFCDDERB 
BEDSBDE2FZADC2FCD3230DAE631CDH 

540 DATA 4630EDSSDE2FCDOSZOCDSF31DZFF31E 
DSBDS2FEDS3DE2FEDSBFEZFIBIBOO 

550 DATA 00EDS3FE2FCDOLN31CDB6S03E0132DA2 
FDBSEOSCDDEBBSEOICDSFBLEDSBF2 

560 DATA ZFZAFO2FED4DS1CDIF3OCDADZ1EDSSF 
22FLD6HBSOFSSEO 132DAZFF 1DSFSCD 

570 DATA SF31C1DA4732C5F 1FEOOCASFS2CD4DS 
10144002AE62F0922F 22F2AE42F01 

580 DATA OAO0ED4222FOZFEDSBEEZF2AECZFEDA 
D31CD7FS0CD4D31EDSSEEZFCD&BZO 

590 DATA FS3E0132DA2FF1DEFSCDSF31C1DASDE 
2CSF1FEOOCAAS3SZCD4D310144002A 

600 DATA E22F0922EE2F2AE0OZ2FOLOAOOED4222E 
C2FEDSBEA2ZFZAES2FED4DZICD7F3O 

610 DATA CDA4D31EDSZEA2FEDABSOFSSE0132DA2 
FFADBFSCDSF31C1DADZ3Z2CSFIFEOO 

620 DATA CAEB32CD4D310144002ADE2FO922EA2 
F2ADCZFOLOAOOED4222E82FCD3831 

630 DATA CD2C3S1CD3B31CDOF31FE0432DAZFSAD 
B2FFEOSCBFEOZCBFEOFCBFEOOCA21 

640 DATA 33EDSBFA2FZAF82FCD383121920122F 
B2FAF32FS2F2AFAZFOI 1000EDAATC 
650 DATA FEOOF2393321920122F82FAF3ZFS2FC 
D24BBESTCESOZFEOZCAG4337CE601 

660 DATA FEOICASSSSSEF432F72FEITOISZAFC2 
F2322FC2F3EFA32F72FC370332AFC 

670 DATA 2F2B22FC2F3EFC32F72FEIFCESIOFEI 
OCZAOSSSAFSZFFEOLCAAOSSEDSBFE 

680 DATA ZFiB1B1B1BEDSSFAZFZAFCZFOLÖBOGE 
DA222F82F3E0132FSZFCDSBSLAFCD 





CSompubs mih 


690 DATA. 59BLE2AFE2FO14000077CBSE2F7313EO 
23ZDAZFCIOGOGO0O0000000000000 

700 

710 ' CODE2 

720°’ 

730 DATA C5SDSESFSCDLCABBEDSSFTSSEDSSFFSSZ2 
2ZFSFSSAFEISSZFASSSAFFSSSZFBIZ 

740 DATA 2AFCS322F1ISSE0O432F9ISZAFIZSTEI 
FFSIFEOATOOZCHOZAFF117F5773001 

750 DATA. SC3SCSDEDSBFSSFZAFSSFTFEOFTBOADSE 
SCDDEBBCDEABBEIDL1S13S13S13EDST 

760 DATA F333SSAFBSSSDIZFBIIZOZCIAFFSSSZF 
BSSZAFSFSZBZB2IFSFSSAFASTSDIZ 

770 DATA FA3S230F2AF73322F3333IAFB3S3ICIZF 
BZ318DIFIFIEIDILICISAFIFZZDI2 

780 DATA FI33E17CZOIL2ZAFI13S3S2ZIZZFI3ICT243 
400GI0000000000900000000000090 

799 ° 

800 ° DATAL 

810 * 

820 DATA 0O00L00000C.00000CI0003F00003F000 
OSFOGONFALOXOFATHGOF4COOSFALO 

830 DATA 033D309FFD39OFFD3O3FEDACFSFFSSS 
FFFSCOFS34C33FDFOOSFFFEOLCEICH 


.8409 DATA 032830002A0092ABB0O0BEA200000000 


VOOOOO90000090000000000900000 - 

850 DATA OOFFOOOSFFEOOFIFFOSFFFFESFFI1OEF 
EFFDSETFEFFFFCT3FECTFAFFFFF43 

860 DATA FFFFDSCFLFDSFFFIDSFIFFDSFFFFDSS 
FE7AC3SFFF3EOFFFFOOOFFO00002800 

870 DATA 002800002A0002A8800BEA200000000 
0000000000009000000000090009090 

880 DATA 00000000000000000009AA00000AF5AO 
0029558800257D580095FF58&0097F 

890 DATA FD&0097FFD&0095FF5500257D580029 
SIIEEIOOAFPSEAOOODOAAGOOOOOOOOOO 
700 DATA 0900900000900000000000000000000 
00000000000000000000000000000 

910 DATA 0000000000000000000000000002800 
OOOZAARAOOOOASFSA000277D4B002F7F 

720 DATA F&B0O029FF6800297DKB000A55A00002 
AABOG000280000000000000000000 

730 DATA 0000000000000000000000000000000 
60000000000000000000000000000 

9740 DATA 0000000000000000000000000000000 
000028000002AAB0000A55A000297 


250 DATA D4800277D048000A55A00002AAB00000 


28000000000000000000000000000 

9760 DATA 0000000000000000000000000000000 
00000000000000000000000000000 

970 ' 

980 " DATAZ 

2790 ' 

1000 DATA &2ZFFE,640,&2FFC,216,&2FFA,000, 
&2FF8,400 

1010 DATA &2FF2,638,&2FEC,400,&2FEA,638, 
S2FEB, 400 

1020 DATA &2FE4,320,%&2FE0,224,&2FDC,128, 
&2FFO,400 

1030 DATA &2FEE,638,%2FE6,65472 ,S2FE2,65 
450 ,&2FDE 

1040 DATA 65464 ‚„L2FDE ,65472,%.9999,,0 


* 


a 
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1060 DATA &21,&00,&00,&11,&00,&60,&01,&0 
0,&40 ,&ED,&BO,&C9 
1070 DATA %21,%00,&40,&411,&00,8C0,&01,80 


0,&40 ,&ED,&BO,%09 
CHECK VI: PRUEFSUMMENs 
ZEILENNR.zı SUMMEN S350- 560: 102859 
10- 20: 24888 570- 580: 96981 
30- 40: 19115 570- 600: 96877 
50- 60: 47149 610-. 620: 96000 
79- 80: 124508 6350- 640: 98076 
90- 100:111917 650- 660: 95214 
110- 120:111226 670- #80: 977408 
150- 140:11140& 670- 700: 36966 
150- 160:111406 710- 7201 2724 
170- 180:111754&4 730- 740: 89007 
190- 200:11217& 750- 760: 94540 
210- 220: 53540 770- 780: 78104 
250- 240: 11047 790- 800: 2718 
250- 260: 5624 A1l0- 820: 40854 
270- 280: 74343 830- » 82358 
290- 300: 77606 850- 850:107272 
310- 320: 79212 870- 880: 70333 
330- 340: 83708 870- 900: &5051 
350- 360: 170943 910- #20: 70314 
370- 1380: 49195 F930- 9401 62552 
390- 400:100113 7350- 960: 59432 
410- 420: F40A6 770- 980: 2734 
A30- 440: 101473 970- 1000: 45776 
450- 460:104218 1010- 1020: 90553 
470- 480:105903 1030- 1040: 45948 
490- 500: 105554 1050- 10601 123693 
510- 520: 97293 1070- : 59204 
550- 5401105716 TER RL 


GESAMTCHECKSUMME: 41855 


| 


IRRE TEEN 

20 '# COMBAT TANK (C) MAR 1986 * 
ZOO EEE NEIN EHER 

40 GOTO 100 

50 INK 1,6:PEN 1:PMODE 1:PRINT "sie haben 
als kommandant einer panzer-",„"brigade 

den befehl in dem vor ihnen lie-genden f 

eindesland so viele gegnerische", "fahrze 

uge zu zerstoeren, wie moeglich." 

60 PRINTsSFRINT"ihnen ist bekannt, dass s 

ie diesen auf- trag nicht ueberleben wer 

den, denn sie kaempfen gegen ein unendl 


-iches heer aus panzern und baeumen." 


70 PRINT: PRINT"ihnen ist auch bekannt, d 

ass sie den" ,"zeitpunkt ihres todes durt 

h wahl ver-","schiedener geschwindigkeit 

en oder skill-levels verschieben koennen 
(menue <1>)." 

80 PRINT:PRINT:> PRINT"gesteuert wird mit 

dem KEMPSTON joystick"»PRINT2PRINTSPRINT 
TAB(10);5 "bitte <r?> druecken,....„" 

90 WHILE UPPER$(INKEY$S)<>"R"SWEND:GOTO 1 

10 

100 HINK=25: TINK=0:GOSUB 1070:POKE &5100 
„&SE: POKE %5101,%0:POKE &5102,&CD=:POKE % 

5103,&59:POKE %5104,&BC:POKE %5105,&C9:F 

K=1 

110 BORDER O0:INK 0,0: INK 1,24,7:INK 2,7, 

24: INK 3,0:2PEN 1:ıPAPER O:MÜüDE 1:SPEED IN 

KS,3 

120 LOCATE 14,45PEN Z:PRINT"combat tank 

" 








programme 


130 LOCATE &,7ıFEN 13PRINT"was programme 
d in march 19896" 

140 LOCATE 11,10:3PEN 2sPRINT"press <O> t 
a start” 

150 LOCATE 8,13:FEN 1:PRINT"<1> to chang 
e qame modus" 

180 PEN 2:3 LOCATE 10,14:PRINT"<2> for ins 
tructions" 

170 PRINT CHR$S (23) 5sCHRF(LI3 FOR n=Qd TO 4 
00 STEP 4:PLOT 0,n,3:DRAWR 440 ,0:NEXT 
190 PRINT CHR$ (23) 5; CHR$(O) 5 

190 Z=2000: WHILE Z>0: Z=2-11A$=INKEYS$ 

200 IF A$="0”" THEN 330 ELSE IF A$="1" TH 
EN GOSUB 1780: 7Z=7 

210 IF A$="2" THEN 50 

220 WEND 

230 ” ### SHOW HALL OF FAME ### -——-- 
240 BORDER Os: INK 0,0: INK 1,24: INK 2,2451 
NK 3,0:PAPER O:MODE 1 

250 LOCATE 14,3:PEN 1:PRINT"hall of fame 
1“. 


260 PEN 2:3FÜOR N=1 TO 5:LOCATE 9,6+N*2: PR 
INT NAME$ (N) 3 TAB (26) ;HISC (N) SNEXT 

270 PRINT=PRINT;PRINT:PEN 1:PRINT TAB{9P 
s"press <enter> to return" 

280 FRINT CHR$ (25) 5 CHR$ (1), FOR n=0 TO 4 
00 STEP &:PLOT 0,n,3:DRAWR 640,0: NEXT 
290 PRINT CHR$ (23) 5 CHR$(O)35 

300 Z=30s: TNT=0O:WHILE Z<{>0 AND INKEYS<>CH 
RE(13I INK 1,TNTEINK 2, TNTS TNT=TNT+(1 AN 
D TNT<1SI-CTNT AND TNT>14)2Z=Z7-1s FOR ZIfs 
ı TO 300: NEXT 

3510 WEND:GOTO 110 

320 ” ### GAME INIT. #t# une 


330 SC=0:LV=5: BON=1000:SCR=11POKE &2FFF, 
ZıPOKE K2FFE,128 

340 POKE &2FFD,0:POKE &2FFC„ZOB:POKE &2F 
F7,244: POKE &2FF6,240 


350 * ### READ SCREEN ## ------ 


nn 


360 ZL=0:0N SCR GOTO 370,380,390,400,410 
„420,430,440,450,460,470,480,490,500,510 
370 RESTORE 1100:60T0 520 

380 RESTORE 1110:60T0 520 

390 RESTORE 112056010 520 

400 RESTORE 1130:60T0 520 

410 RESTORE 1140:60T0 520 

420 RESTORE 1150:60T0 520 

430 RESTORE 1160:6010 520 

440 RESTORE 117056010 520 

450 RESTORE 1180:60T0 520 

460. RESTORE :1190:G0TO 520 

470 RESTORE 1200:G0T0 520 

480 RESTORE 1210:G0T0 520 

490 RESTORE 1220:60T0 520 

500 RESTORE 1230:G60T0 520 

510 RESTORE 1240 

520 MODE OzINK O,HINK: INK 1,TINKSINK 2,T 
INK: INK 8, TINK= INK 3,6: INK 4,HINK= INK 5, 
18:POKE &2FFF,&2:POKE &2FFE,3&ROSPOKE KOF 
FD,&0:POKE &2FFC,&DO 


Compute mik 
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530 INK 6,35 INK 7,92 INK 9,HINK: INK 10,15 
sINK 21,13s INK 12,55 INK 13,TINK 

540 POKE &33FF,&Ce FOKE &ISFE,LIBSPOKE &3 
430,443 POKE &33FC,&0: POKE KIIFD,L4O 

550 X=O1WHILE X<6401READ X,YıMDVE X,Y 
540 IF PEEK(&S3FDI=&40 THEN POKE &SIFD,% 
50 ELSE POKE 233FD,&40 

570 POKE &33FC,&0 

580 CALL &3400:WEND:CALL &51504READ X1,V 
1,X2,Y2,X3,Y3 

399 CALL &515C 

600 ADR=&2FE&:W=X1:G0O5SUB 12508 ADR=KZFE4: 
W=Y1:sGOSUB 1250 ; 

610 ADR=&2FE2:W=X2:G0SUB 1250: ADR=KZFEOr 
W=Y2ı G0SUB 1250 

620 ADR=&2FDE:W=X3:60SUB 12505: ADR=KZFDEC: 
W=Y3:GOSUB 1250 

630 PLOT 0,0,13DRAWR 440,0:DRAWR 0,398:D 
RAWR -640,0 


640 ° u MC INIT. KR m nn 
650 GOSUB 1040 
660 ' ### MAINPROBRAM Kr —— 


| nn m m mm nm a a le m m ra mn m m m ram m ran mag Nm np Ant Hans mr br m m nn m mn m a pn 


670 CALL %3000 { 

690 ' ### GET RETURN STATUS zur ----——— 

6975 ST=PEEK (&2FDA) sFR=PEEK {&2FDB) ON ST 

GOTO 920,800,700,700 

700 IF FR=B THEN AX=&7FE4: Y1=600:50T0 72 

o 

719 IF FR=15 THEN AX=&2FDC: Y3=400: 6910 7 

20 ELSE IF FR=2 THEN AX=&2FEO: Y2=600 

720 GY=PEEK (AX} +Z256#PEEK (AX+1) E6X=PEEK (A 
X+2) +254#PEEK (AX+3} ıG0SLUIB 9640 

7350 * ### TREFFER #8 — nn oo 

740 EC=SC+200*SCR#FK: ZL=ZL+1s IF ZL<3 THE 

N 770 

750 ZL=0: SE=SC+HBON*FKIFOR M=1 TO &ı FOR N 

=100 TO 200 STEF 40:50UND 4,N,2,M#2.5:NE 
XT5NEXTSFOR M=4 TO 1 STEP -1:FOR N=100 T 

0 200 STEP 40:50DUND &,N,2,M#2.5:NEXTsNEX 

T 

7&0 IF BONS1O000 THEN BON=BON+1000 

779 ADR=AX+2: W=65470: 605SUB 1250: ADR=AX:W 

=500: BOSUB 1250 

7809 GOTO 570 

790 " »## NEW SCREEN ##r ——-- nennen 
800 ZL=0:SCR=SCER+L:IF SCER>?15 THEN SC=SCH 
15000: SCR=1:60T0 3640 ELSE 340 

BiO * we# COLLISION #88 -——-—--- nme 

820 IF PEEKI&2FDEI=B THEN 700 

830 GSX=FEEK (KIFFE) +256#PEEK (K2FFF}) Ss GY=PE 

EK (&2FFC) +254#PEEK (&ZFFD) 

840 GOSUB 9409: POKE K2FFF,&2:POKE &2FFE,&k 

80:POKE &2FFD,kO: POKE &2FFC,&DO 

850 LV=LV-1:IF LV>=0 THEN 590 

860 IF SC<=HISC (5) THEN MODE 1:L0OGATE 7, 
12: PRINT"you scored"; sc; "points"sFÜOR N=1 
TO 1000:NEXT:GOTO 240 


Somputs mi 


600,70,450, 190, 666 ,„445,170,230,400,208,2 
898,310 

1150 DATA 10,100,20,300,5,200,70,50,140, 
260,240 ,200,400,70,440,340, 666, 666,50,30 
0,100,120,200,240 j 

1140 DATA 100,100,200,200,300,300,30,130 
„170,510,666,6566,120,230,170,200,100,150 
1170 DATA 10,80,60,70,110,85,160,78,210, 
82,260,80,310,70,360,90,20,300,80,310,14 
0,280,420,270 , 646 ,666,50,210,100,389,88, 
240 

1180 DATA 10,180,1430,250,10,354,280,280, 
300,90 ,H656 ,666,95,210,150,200,180,114 
1190 DATA 40,240,80,140,120,200,400,300, 
400,100 ,500 „80,550 , 380 , 666,666, 150,150, 2 
50,120,156,210 

1200 DATA 20,70,30,210,25,300,300,200,30 
0,320,340,60,510,270,530,75, 666, 666,120, 
120,230,100,400,120 

1210 DATA 10,50,30,300,40,200,80,80,300, 
270,160,50,666,6654,100,200,5,130,125,230 
1220 DATA 50,50,150,150,200,200,250,250, 
300 „300,330 , 350,666 ,666,80,200,130,260,1 
10,234 

1230 DATA 125,125,250,250,80,80,300,320, 
500,130,646,666,130,280,180,200,50,210 
1240 DATA 320,200,110,220,50,80,300,120, 
430,3350,500,340,505,100,30,380,50,350,66 
6,666,250,170,150,168,30,250 

1250 POKE ADR+1,INT(W/256) ıPOKE ADR, (W/2 
56-INT (W/256) ) #256: RETURN 

1280 FOR L=1 TO 30:50OUND 1729,0,500,15-L/ 
10,0,0,L:NEXT:RETURN 

1270 * ### CHANGE GAME MODUS ##* ----——- 


1280 INK 0,0: INK 1,18: INK 2,25:PAPER O0:P 

EN 1:.MÜDE 1=:IF SP$="fast" THEN FK=3 ELSE 
IF SP$="nmedium" THEN FK=2 

12909 SP=0:FOR N=&S1FC TO &31FErIF PEEK(N 
)=%iB THEN SP=Sp+1 

1300 NEXT: SP$="medium”: IF SP=0 THEN SP$= 

"slow" ELSE IF SP=3 THEN SP$="tast" 

1310 Sk$="easy"ı IF FEEK(&3244)=&C5H THEN 

SK$="hard” 

1320 IF HINK=25 THEN BC$="bright" ELSE B 

Ch="dark" 

1330 6S5$=STR$(PEEK (&I080) ) 

1340 MODE 1:L0CATE 12,4:PRINT”<i> speed 
"ssPEN 2:PRINT SP$ 

1550 PEN 1:LOCATE 10,5:PRINT”<2> skill 1 

evel "s5:PEN 2:PRINT SK$ 

1560 PEN 1:L0OCATE 5,8:PRINT"<3> enemy mi 

ssiles’ speed";:PEN 2:PRINT GS$ | 

1370 PEN 1:L0OCATE 6,10:PRINT"<4> backgro | 

und colour: "3=PEN 2:FRINT BC$ ' 
1389 PEN 1:LCCATE 7,124 PRINT"”<S> return 

into main menu." 

1390 A$=INKEY$: IF a$="" THEN 1290 ELSE I 

FE AS<>"1" THEN 1430 

1400 IF PEEK(&SIFC)I=O THEN PÜOKE &31FC0,&1 


" B:G0T0 1280 


1410 IF PEEK(&SIFDI=0 THEN FÜKE &31FD,&1 
B:FOKE &31FE,%1B:60T0 1280 
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I E,0:G0T0 1280 
if 1430 IF As<>"2" THEN 1440 


1420 POKE %31IFC,O:POKE &SIFD,0:POKE &31F 


1440 IF PEEK(&3244)=&C3 THEN PB=&CA ELSE 


PB=&CH 


j 1450 FOKE %3244,PB:POKE &328A,PBıPOKE &5 


2DO,PB:GOrTu 1280 


2; 1450 IF A$X>"3" THEN 1470 
f 

CHECK Vin PRUEFSUMMEN: 270- 280: 35941 90- 
} 290- 300: 17415 s10- 
ZEILENNR.: SUMMEN S10- 320: 2197 &30- 
R 10- 20: 526444 330- 340: 97550 650- 
\ 30- 40: 27369 350- 360: 16893 &70- 
50- 501 63152 370- 390: 4262 690- 
N 70- 80: 85447 390- 400: 4422 710- 
90- 100: &6iil A1Q- 420: 4582 750- 
! 110- 120: 91958 430- 440: 4742 7- 
= 130- 140: 107540 450- 4601 4902 770- 
150- 160:112569 470- 480: 5062 790- 
! 170- 180: 31784 490- 500: 5222 ero- 
f 190- "200: 12910% 510- 520: 24391 830- 
210- 220: 8246 530- 540: 19109 850- 
j 230- 240: 31054 550- 540:104398 870- 
250- 2&0: 42721 570- 580: 11946 a90- 





programme 


1470 POKE &30809 ,PEEK (&S080}) +1: IF PEEK(&S 
OB0O}) >14 THEN POKE 3080,18 

1480 GOTG 1280 

1490 IF as="5”" THEN INK O,HINKı INK 1,TIN 
Ka INK 2, TINK: RETURN 

1500 IF a$="4" THEN IF HINK=0 THEN HINK= 
25: TINK=O0 ELSE HINK=9: TINK=26& 

1510 G0T0 1280 


8003 52575 910- 920: 22712 1230- 12401107113 

4620: 102834 9350- 940ı 556489 1250- 1240: 22248 

6408 29136: 9350- 980: 125355 1270- 1280: 83342 

460 2961 270- 960: 105894 1290- 1300: #171? 

#50: 5311 290- 1000: 71345 1310- 13201 25020 

700; 76955 1018- 10206: 15897 13530- 1340: 54907 

720: 20015 1030- 1040: 72388 1350- 13601 70496 

7491 61058 1050- 1060: 16797 1370- 1380: B41ö1 

FED: LO1SEF 1070- 1080: 87308 1390- 1400: 99338 

780: 121186 109%0- 1100: &1880 1419- 14201 68994 

8005 2274 1110- 11205 45185 14330- 19401 48392 

#820: 74804 1130- 1140r 41051 1450- 1440: 59237 

840: 67065 1150- 11605 125576 1470- 1400: 54626 

840: 37973 1179- 11801 54207 1490- 1500: 69302 

880: 1190- 1200: S7t1d 1510- F 275 

27004 73772 1210- 1220: 82039 EEE EIERN 
GESAMTCHECKEUNMEı: 15863 


f 
| Das Programm „Disc-Operator“ wurde geschrieben, um den doch recht um- 


ständlichen Umgang mit dem Diskettenlaufwerk etwas zu erleichtern. 
4 


| Disc-Operator 


| N 


u 












Nach dem Eingeben des Programmes speichern Sie dieses mit 
SAVE “#” ab. Direkt nach dem Starten des Programmes mit RUN 
“#” wird ein Diskettendirectory auf dem Bildschirm angezeigt. 
Unterhalb des Directories sehen Sie die verschiedenen, auf Ta- 


stendruck abrufbaren Funktionen. 


Um eine dieser Funktionen in Verbindung miteinem Daten- oder 
Programmifile auszuführen, gehen Sie wie folgt vor: 

Bewegen Sie das invertierte Feld im Direktory mit Hilfe der Cur- 
sortasten auf das entsprechende File und drücken die ge- 
wünschte Funktion. Diese wird dann sofort ausgeführt. 


Die nachfolgenden Funktionen stehen Ihnen zur Verfügung: 

1. Newdisce = >C< Sollten Sie während des Programm- 
ablaufes die Diskette gewechselt oder 
gewendet haben, wird durch diese 
Funktion das neue Directory (User 0) 


angezeigt. 
2.lserr = >+< Wenn Sie "+" oder “-” drücken wird 
üiser = >-<Z der Userbereich um eins nach oben 
oder unten verlegt und das entspre- 
chende Directory angezeigt. 
3. Discname = >N< Mitdieser Funktion wird der Diskette ein 


Name zugewiesen. Dieser Name wird 
unter dem Filenamen “ #.DAT” gespei- 
chert. Bei Disketten ohne Name läßtsich 
das Directory nicht ausdrucken. 


Computs mi 











Programme 


4lad = >L< Hiermit wird der angewählte File gela- 
den. Der “Disc-Operator“ wird dabei ge- 


löscht, 


5. Run = >ENTER< Funktion wie bei Load, jedoch wird gela- | 


den und gestartet. 


Mit Rename können Sie den Namen des 
ausgesuchten Files ändern. Sie werden 
nach dem neuen Namen gefragt. Geben 
Sie den Namen incl. der Erweiterung 
ein. 2.B.: “ TEST.BAS” 


6. Renams = >R< 


Durch Drücken von “E” wird der mar- 
kierte File unwiederbringlich gelöscht. 


1.Ease = >E< 


8. Printdir = >P<{ Das Directory für alle Userbereiche der 
eingelegten Diskettenseite wird auf dem 
Drucker ausgegeben. 

Diese Funktion führt zum Programm- 
abruch, wenn die Diskette nicht mit ei- 


nem Namen versehen ist, 


9. Seisve = >$< 
eingelegten ’Diskettenseite im Userbe- 
reich O unter dem Filenamen “ ‚BAS” ab- 
gesichert. 

10. Prorend >E<{ Durch zweimaliges Drücken von “E” 
wird das Programm abgebrochen und 


gelöscht. 


Der Programmteil zum Ausdrucken des Directorys ist auf einen 
Epsonkompatblen Drucker abgestimmt. Sollten Sie einen ande- 
ren Drucker besitzen, dann ändern Sie die Druckersequenzen in 
den Zeilen 590, 600, 840, 850 und 890 entsprechend ab. 

Bei der Eingabe des Diskettennamens müssen Sie den Namen 
und die Diskettenseite nur einmal eingeben - danach werden Sie 
aufgefordert die Diskette zu wenden. Der Disk-Operator benennt 
nun die andere Diskettenseite analog zur ersten Seite. Bei der 
Seitenbezeichnung haben Sie die Auswahl, die Seiten mit „Seite 
A‘ und „Seite B“ oder „Seite 1“ und „Seite 2“ zu bezeichnen. 





Und nun viel Spaft mit dem „Disc-Operator“ ! 


10 REM HH REIHE EEE 
RR RIEF IIINEIHHHHEIENE IE HEINE 
20 REM *#* 


"+ 
30 REM #* DD IS cc - 0 
BEZ iR 9-7 O.-R *# 
40 REM ** 
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Hiermit wird der Disc-Operator auf der 





#% 
0 REM *#* <(C) 1986 by: Andreas Barufe 
‚ Salinenstr.30, 4350 Bad Nauheim Me 


60 REM ##* 
*% 


790 REM ER ERIEHNEN NE 
ERRTERI III NIE 
80 ON BREAK GOSUB 1039 

90 0PENOUT"dummy" sELOSEOUT 

100 FOR i=%BAEOG TO 2BAEB:READ a:POKE i,a 
«:NEXT=:MODE 2:CAT=PRINT"Newdise = >C< 


User "CHR$(240)" = > User "CH 
R#{Z241)" = >—< Discname= >Nd"sPRIN 
T’Loagd = >L<S Run = >Enter< 

Rename = >R< Erase = >EI" 
110 PRINT"Frintdir= +P< Selfsave= 


5% Frgrend = >2#ESEX":LOCATE 18,18 
PRINT CHR$(24);" = DISCTC-OPER 

ATDR *** "+CHRF(24) 

120 a$=""sFOR a=1 TO 17:5L.0CATE a,4:CALL 

&BAEO; a$=a$+CHR$S (FEEK (LBAFO))SNEXT asas- 
EHRE (24) +tas+CHRE (24) : LOCATE 1,4:PRINT a$ 


3 
130 x=1,y-4:31el:yl-d 
140 bS=INKEYF: IF b#=""THEN 140 


150 a=ASC(b#) 


150 IF a=240 THEN yi=y1-1:G60SUB 320:IF M 
ID$(a$,10,1)<>"."THEN LET yi=y1+1:GOSUB 

320 

170 IF a=241 THEN yi=y1+1:G0SUB 320:1IF M 
ID£(as,10,1)<>"."THEN LET yil=yi1-1:G0SUB 

320 

180 IF a=242 THEN xi=x1-20:G0SUB 320: IF 

MID$(a#,10,1)<>", "THEN LET xi=x1+20:G0OSU 
B 320 

170 IF a=243 THEN x1=x1+20:GOSUB 320: IF 

MID$(a$,10,1)<>"."THEN LET x1=x1-20:G0SU 
B 320 

200 IF a=57 THEN GOSUB 310:60T0 390 

210 IF a=13 THEN GOSUB 310:G60T0 380 

220 IF a=47 OR a=99 THEN RUN 

230 IF a=45 OR a=41 THEN SOSUB 310:60T0 

410 

240 IF a=43 OR a=57 THEN GOSUB 310:60T0 


250 IF a=76 OR a=108 THEN GOSUB 310:G0TO 
2650 IF a=82 OR a=114 THEN GOSUB 310:60T0 
2709 IF a=85 OR a=115 THEN GOSUB 310:60T0 
280 IF a=80 OR a=112 THEN G60SUB 310:60T0 


270 IF a=78 OR a=110 THEN GOSUR 310:60T0 
7109 

300 GOTO 140 

310 a$=MID$ (a$,2,12} RETURN 

320 IF yi=3 THEN yi=17 

350 IF yi=20 THEN yi=4 

340 IF x1=-17 THEN »1=61 

350 IF x1=81 THEN x1=1 

360 a#=MID$(a$,2,17) 

37% LOCATE x,y:PRINT a$sy=sglry=yliag=""; 
FOR c=k TO x+16:L0OCATE c,y:CALL &BAEO:aS$ 
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I 410 


| 390 


440 


. 450 


490 


| =a$+CHR$ (PEEK (&BAFO)) :NEXT ct a$=CHR$ (24) 
\ #a$+CHR$ (24) :LOCATE x ,y:PRINT a$j RETURN 


380 MODE 2=3PRINT"Der Disc-Operator wird 
gelvescht.":RUN as 

!ERA,@a$: RUN 

RUN . 

u=u-12IF u=-1 THEN u=15 

GOTO 440 

u=u+1:IF u=16& THEN u=O 

RESTORE: tUSER,u:6GOTO 100 

450 MODE 2ZsPRINT"Der Disc-Operator wird 
geloescht.":LOAD as 

LOCATE 1,25: INPUT"Neuer filename";b$ 
!REN „@b# ,@a#: RUN 

REM SELBSTSAVE 

500 MODE 2:PRINT"Bitte Diskette einlegen 
„ auf weiche der":PRINT""=PRINT""=PRINT" 
DISC-OPERATOR gespeichert werden soll, d 
anach }ENTER<" ’ 

510 as=INKEY$ıIF as=""THEN 510 

520 MODE 2:PRINT"Ich speichere gerade de 


400 


420 
430 


470 
480 


 n DISC-OPERATOR auf Ihre Diskette 


I 330 SAVE"#.bas":PRINT EHR#(FTIERUN 


u u _ Be un 
A 


540 ELEAR=:MODE 1: !LISER,O 


, 550 CLS:LOCATE 10,10sPRINT"B I TTE A 


USZULESEND E"SPRINTFIERRINI"": 
PRINT'DISKETTE EINLEGEN 
„"=PRINT"":PRINT""SPRINT""DANACH > 

ENTER <"eCÄAlL %BBOA . 


\ 560 CL5 





me u er 


ı 570 ELS:LOCATE 10,10:FRINT"B I TTE W- 


ARTE M" 


580 OPENIN"#, dat": INPUT#F ,‚e$:CLOSEIN: c$= 


"DISKNAME: "+c# 

590 PRINT#B,CHR$ (ZI "@"REM 
ma=m=—----—-- oo DRUCKER INITIALISIEREN 

&00 PRINT#8,CHR$S (27) s "E"3ZREM -——— 
ab este —+-- EMPHASITZEDSCHRIFT EINSCHALTEN 

PRINT#B,c$ 

CLEAR 

DIM inhalt$s (90) 

=O 

650 FOR m=-Ö TO 15: !USER,m: IF f=b-1 THEN 

b=b-3 

660 MODE 2:CAT 

670 FOR i=1 TO 17:LOCATE i,2sCALL &BAEO: 
as=as+CHR$S PEER (&RAFO) I ENEXTzıinhalt$cb)= 
a$:ıb=b+2: a$=""sinhalt$#(b-1)=STRINGS (BO, " 
=")ıf=b - 

680 FOR y=4 TO 26 | 

5970 as="" 

7900 FOR i=i TQ 78:LOCATE i,ysCAlLl &BAEO: 
as=a$+CcHRF$ (PEEK (&BAFO) ) 


710 IF i=1 AND a$=" "THEN i=78: y=26 
720 NEXT i 

739 IF MID${a$,9,13%>"."THEN GOTO 750 
740 inhalts(b)=a$:b=b+1 

750 NEXT y 

7&0 b=b+1:NEXT m 


770 FOR y=20 TO 1 STEP-Lia$="" 
780 FOR i=1 TO 4:LOCATE i,y:£ALL %BAEO:A 
=a#+cHR$ KPEEK (HRAFO)) 


programme 





770 NEXT i n 

800 IF as>" »THEN inhalts(O)=inhalt$st 
O)+" FREIER SPEICHER "+asıy-i 

810 NEXT y 

820 IF inhalt#(b-2)="======22==2=02=22=S5S8n 
-2) =" "7 inhalts(b-II="" 

830 IUSER,O 

840 PRINT#8,CHR$ (27) 4 "F"34REM 
mem non Emphasized ausschalten 
850 PRINT#8,CHRF (IS) 5:REM —— mn 
.—nn Condensedschrift einschalten 


840 PRINT#B,inhalt#(0) 

870 FOR a=1 TO b: IF MID$tinhalt$(a) „2,5) 
<>"Drive"THEN inhalt$ta)=MID$s(inhalts (a) 
„1,13)+MiD$(inhalt$ (a) „15,4 +MID$ (inhalt 
$(a) „21,15)+MID$(inhalts (a) „33,4)+MID$(i 
nhalt$(a) „41,133 +MID$ (inhalt$ la) „S5,4)+M 
ID$(inhalt${al „61,133 +MID$Cinhalts (a) „75 

880 PRINT#B,inhalt$ (a) sNEXT 

890 PRINT#B,CHRFCIBISREM — nn nn 
ee ge —--NERMALSEHRIFT EINSCHALTEN 


700 RUN 

910 MODE 15LOCATE 1,10sPRINT"BI TTE 
zu BEZEICHNEN D E":PRINT"":P 

RINTTDISKETTE EINLESEN, 
"ZPRINT""=SPRINTTDANACH ENTE, 

R <":CALL &BBO& 

920 CLS 

930 MODE 1:PRINT"Wie soll diese Diskette 
hei ssen?": INPUT"Name:  ";a%: INPUT"Seites 
"sc$ıc$=UPFER$ ICH) sa$=a$+" Seite "+c$:0 

PENOUT"#. dat": PRINT#9 ,a$ı CLOSEGUT 
740 PRINT”"=PRINT"Bitte Diskette wenden, 
dann >ENTER<":SCALL %BB18 

950 3$=LEFT$ (a#,LEN{a$)-1) 

960 IF c$="A"THEN c$="B"sG60TD 1000 

970 IF c$="B"THEN c$="A"sS6OTD 1000 

780 IF c$="ZV THEN c#="1":6G0T0 1000 

990 IF c$="1"THEN c#="2":G0T0 1000 

10009 a$sast+c$t: OPENGQUT"#.dat"sPRINT#I,3%: 

CLOSEDUT ; 

1010 !USER,O:RUN 

1020 DATA 205,76,1897,50,240,188,201,0,0 
1939 CALL &O 


CHECK VI1:PRUEFELIMMEN: 


ZEILENNR.: SUMMEN 390- 400: 7675 730- 740: 64350 
10- 204 54558 410- 4203 42441 750- 760: 14787 
30- 40: 49106 450- 440; 44527 770- 780: 54356 
S50- 603 54370 450- 450: 57148 790- 6800: 57472 
70- 80: 48608 470- 480: 27545 Bid- 820: 54050 
90- 100: 53928 490- 300: 45842 B30- 840: 43591 
110- 120: 64169 S10- 520: 47904 850- 860: 65915 
130- 140: 54450 530- 540: 18949 870- 890: 77247 
150- 160: 46185 550- 560: 23098 890- 900: 977% 
170- 180: 83768 570- 580: 88906 910-. 920: 54550 
190- 200: 61507 590- 400: 17445 930- 940: 37810 
210- 220: 39283 &10- &20: 2448 950- 360: 48963 
230- 240: 75330 630- 640: 10934 370- 9906: 48074 
250- 240: 80138 650- 660: 40074 970- 1000: 65574 
270- 280: 75639 670- 680: 66774 1010- 1020: 2BB97 
290- 300: 39093 690- 700: 49857 1030- : 1897 
310- 320: 24629 710- 720: 46300 
Er YES: 71 
350- 360: 23963 EEE Br 
So 2 GESAMTCHECKSUMME: 53708 


Compute mik 
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Aus Ihrem Zauberstab schleudem Sie 
Blitze gegen die anrückenden Spinnen, 
die dadurch auf ihre Startposition zurück- 
geworfen werden. Jeder Treffer zählt 10 
Punkte; wird jedoch eine Spinne auf der 
Startposition getroffen, so werden 50 
Punkte wegen sinnloser Energievergeu- 
dung abgezogen. Erreicht eine der an- 
drängenden Spinnen das Spielniveau der 
Spielfigur, verlieren Sie eines Ihrer Spielle- 
ben. 

Ab dem 2. Level mischen sich unter die 
Spinnen einige wohlgesonnene Geister, 
die natürlich nicht getroffen werden dür- 


fen - andernfalls kostet Sie das 50 Straf- 


Hallo, Schneiderfans - hier ist 


CREEPY = fteit U 


im Kampf gegen aufdringliche Spinnen bewei- 
sen Sie Ihr Geschick. 


Ziel des Spieles Istes, die Spielfigur möglichstlange im Spiel zu hal- 
ten, um einen möglichst hohen Punktestand zu erzielen. 


















































Haben Sie 2000 Punkte erreicht, so haben Sie das Spiel gewonnen. 


unkte. 
R Insgesamt können Sie 4 Spiellevel erreichen. 


Ab Level 3 erscheint rechts unterhalb der 
Mauer ein böser Geist, den Sie besiegen 
sollten. Die Blitze schleudern Sie in die- 
sem Fall mittels der Spacetaste gegen Ih- 
ren Gegner. Vernachlässigen Sie aber 
nicht den übrigen Spielverlauf! Treffen Sie 
den Geist, so erhalten Sie 10 Punkte. Bei 
jedem 5. Treffer gewinnen Sie außerdem 
noch ein Bonusieben. Insgesamt können 


Spiel zu erschweren, werden die Feuer- 
und Steuerlunktionen teilweise gestört. 
Dadurch wird auf jeden Fall ein stupides 
Abfahren der Spielfläche verhindert. 

Das Spiel wurde für den CPC 464 mit Joy- 
stick entwickelt, müßte aber auch auf den 
Nachfolgetypen laufen. 


Sie sich 4 zusätzliche Bonusleben sichern, 
umim Kampf gegen die Spinnen gewapp- 
net zu sein. 

Im 4. Level speien die Spinnen eine giftige 
Flüssigkeit, der Sie ausweichen müssen. 
Erreichen $ie 1500 Punkte, wird Ihnen der 
Superbonus gutgeschrieben. Um das 





10 REM "ea CREEPY. rere, 280 SYMBOL 209,0,0,0,0,128,248,128,0 
20 REM ### geschrieben 1/1986 von ##% 290 SYMBOL 210 ,1,1,1g1,1,1,1,1 

. 300 SYMBOL 211,0,0,0,0,0,0,0,0 
350 REM #*#«* Klaus Grese wen. 310 SYMBOL 212,1,1,1,1,3,62,3,1 
40 REM #ae&# Melle B errT 3720 SYMBOL 215,131,135,143,149,167,134,1 
50 MODE 1 31,193 
60 SPEED KEY 20,10 330 SYMBOL: 216, 192,224,240,1648,244,96,17 
70 CLB OsPAPER O0:BORDER 1 5,130 
80 INK 1,24:3INK 2,18: INK 3,14 340 SYMBOL 217,167,159,159,182,178,186,1 
90 REM sx### Zeichen definieren ##=##* 71,171 
100 SYMBOL AFTER 180 350 SYMBOL 218,244 ,248,252,222,79,110,25 
110 SYMBOL 181,0,0,0,0,16,8,12,12 4,254 
170 SYMBOL 192,1,3,3,3,1,1,3,2 360 .SYMBOL 219,31,15,15,10,2,2,18,50 
130 SYMBOL 183,0,0,1,1,3,3,3,3 370 SYMBOL 220,252,248,248,168,32,32,36, 
140 SYMBOL 184,6,3,2,1,0,0,0,0 60 
150 SYMBOL 185,6,6,6,134,134,76,204 ,204 380 SYMBOL 221,0,0,0,0,0,0,0,0 
160 SYMBOL 186,6,12,12,24,24,48,48,48 570 SYMBOL 222,112,7,7,126,140,62,71,128 
170 SYMBOL 187,0,0,16,8,8,12,12,12 400 SYMBOL 223,28,52,172,252,98,248,176, 
180 SYMBOL 188,204,204,204,204,236,2356,2 | 2 
37,237 410 SYMBOL 225,127,255,241 ,255,227,255,1 
170 SYMBOL 189,49,49,98,66,130,150,4,12 27 
200 SYMBOL 190,14,7,3,1,0,0,0,0 420 SYMBOL 226,254,242,158,254,198,252,2 
210 SYMBOL 191,1097,109,45,173,109,45,0,0 | 24 
220 SYMBOL 192,24,24,16,16,32,64,0,0 430 SYMBOL 227,128,128,128,128,128,128,1 
230 SYMBOL 193, 1,1y4y, 1,1, 11,1 29,128 
240 SYMBOL 201,1,1,1,8,6,3,1 440 SYMBOL 231,18,243,207,127,243,51,30, 
250 SYMBOL 202,0,130,132,136,152,176,176 | © 
„176 450 SYMBOL 238,3,69,64,123,71,71,2,6 
260 SYMBOL 203,17,8,44,6,2,3,1,1 440 SYMBOL 239,224,208,128,232,244 ,242,3 
270 SYMBOL. 204,176,224,224,192,192,128,1 | 2,48 
28,128 479 SYMBOL 240,129,124,90,219,219,255,36 

„231 
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. 570 
ı 580 


ij 840 LOCATE 6,7: ERITE 


I 870 


200 


480 SYMEMN_ 241,124,153,255,1899,195,126,3 
6,102 

490 SYMBOL 242,0,0,0,170,85,0,0,0 
500 SYMBOL 243,1,0,1,0,1,0,1,0 
510 REM ##r## grafik-strings 
520 READ a ; 
5350 IF a>=0 THEN b$=b$+CHR$ (a) s60OTO 520 
540 DATA 201 ,202,8,8,10,203,204,—1 

550 READ c 

5640 IF c>=0 THEN d$=d$+HCHR$ (CI) ıGOTO 550 
DATA 212,209,8,8,10,210, 211, —1 

READ ®& 

590 IF e>=0 THEN f$=f$+CHR#$ (e) :GOTO 580 
600 DATA 215,216,8,8,10,217,218,8,9,10,2 
19,220, —1 

610 READ g 

&20 IF g>=0 THEN hs=h#+CHR$ (g) sBDTO #10 
630 DATA 221,221,8,8,10,221,221,8,9,10,2 
21,221,-1 

640 READ o 

#50 IF o?=0 THEN p$=p$+CHR$ (0) sGOTO 4409 
5660 DATA 181,182,183,8,8,8,10,184,185,18 
6,8,8,8,10,197,188,199,8,8,8,10,190,171, 
192,-1 

6709 READ q 

&80 IF q>=6 THEN t$=t$+CHR$ (g}sGDOTO 670 
670 DATA 182,183,8,8,10,185,1085,8,8,10,1 


EHE 


f 68, 189,8,8,10, 191,192, 1 


700 k$=CHR$ (222) +CHR$ (223) 
710 REM **# vorspann HERREN 


720 BORDER 4 


730 FOR aa=4 TO S6ssab=1 


i 740 LOCATE aa,ab:PEN 3:PRINT CHR$ (95) NE 


XT aa 
750 FOR ac=4 TO 36: ad=24 


760 LOCATE ac,adı:PRINT CHR$195) NEXT ac 
' 770 ba=37:FOR bb=1 TO 25 

\ 780 LOCATE ba,bb:PEN 3zPRINT CHR$(193)2N 
EB EXT bb 

1 790 LOCATE 6,4:PEN 1:PRINT"CCCE RRRR EEE 
| E EEEE PPPP Y v" 


"800 LOEATE 6,5: PRINTTE OR RE E 
P PY vw 
810 LOCATE &,&: PRINT R RE E 
P Pv v" 
820 LOCATE 6,7:PRINT"CE RRRR EEEE EEEE 
PPPP_Y_ Y" 
830 LOCATE 4,8: PRINT" RR E E 
P vv" 


RRE E 

P y" 

850 LOCATE 6 ,10K PRINT*CECE R R EEEE EEE 
EP Y 

850 ORIGIN 175,195:DRAWR 275,0:DRAUR O0,- 
150: DRAWR -275,0:DRAWR 0,150 

LOCATE 15,15:PEN 3:PRINT"Ein Spiel" 
LOCATE 19,17:PRINT"von" 

LOCATE 15,19: PRINT"Klaus Grese" 
LOCATE 17,21:FRINT"Melle 8" 

FOR sp=1 TO 2500:NEXT. sp 

z=2:y-1 


880 
8970 


9710 
920 
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IQ LOCATE x,ysPEN ZzPRINT CHR$ (193) ; CHR 
$(128) 

940 IF y<X20 THEN y=y+1 

350 LOCATE x„y:PEN 1:PRINT k$sIF y<20 TH 
EN 730 ELSE 940 

950 FOR ui=1 TOD SOO:NEXT ui 

770 zx=e2ızy=20 

7950 LOCATE zx „zy:PEN 33PRINT CHRF#(193);C 
HR$ (128) 

990 IF zy<25 THEN zy=zy+1 

1006 LOCATE zx ,„zy:PEN 1:PRINT k$:IF zy<i2 
5 THEN 780 ELSE 1010 

1010 LOCATE 2,25:3PEN SsPRINT CHR$(193})3;C 
HR$ (128) 

1020 ENVY 3,2,6,2,50,-50,60 

1030 FOR el=1 TO t1 

1040 READ al 

1050 SOUND 1,31,30,15 

1060 SOUND 2,300,30,15 

1070 SOUND 4,305,30,3 

1080 NEXT el 

1090 SOUND 1,200,300,0,3 

1100 SOUND 2,300,300,0,3 

1110 SOUND 4,305,300,1,3 

1120 DATA 215 ‚285 ,365,410,200, 175, 199,25 

5,288,330, 288 

11350 FOR pa=1 TOD 2000:NEXT pa 

1140 BORDER 1:CLS:LOCATE 16,1:PEN 3:3PRIN 

T"Die Story" 

1150 LOCATE 1,4:PRINT"Die alte Jungfer P 
aula war wieder in der" 

1150 LOCATE 1,5:PRINT"AÄhnengruft und hat 
mit den Gebeinen das" 

1170 LOCATE 1,6:PRINT"das Orakel BEErAgE 
„Dieser Laerm hat die” 

1180 LOCATE 1,7:PRINT"garstigen Horror-5 
pinnen aus a Schlaf" 

1190 LCCATE 1,85 FRINT"geschreekt und sof 
ort stuerzen sie sich" 

1200 LOCATE 1,9:PRINT"auf die alte Lady. 

Die will den Friedhof" 

1210 LOCATE 1,10:PRINT"nun eilig verlass 

en,äber sie ist nicht” 

1229 LOCATE 1,11:5PRINT"mehr so schnell m 
it den Bainen-körz vor" 

1230 LOCATE 1, 12: PRINT"dem rettenden Mau 

Erdurchschlupf wird sie" 

17240 LOCATE 1,13: FRINT"eingeholt, Aber di 

e Jungfer ist gar nicht" 

1250 LOCATE 1,14:PRINT"so hilflos.Mit ih 

rem Wehrstecken kaempft." 

1250 LOCATE 1,15:PRINT"sie gegen die sch 

recklichen Tiere. Jedoch" 

1270 LOCATE 1,1&:PRINT"schon nach kurzer 
Zeit mischen sich die" 

1280 LOCATE 1,173PRINT"Geister ein - die 
Guten und auch die" 

1279 LOCATE 1,18: PRINT"Boesen." 

1300 LOCATE 14,24: PRINT"”> LEERTASTE <" 
1310 we$=INKEY$£ 

1320 IF wes=" " THEN 1340 

13530 GOTO 1319 
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1340 CLS>LOCATE 14,15PEN 3: FRINT"ERLAEUT 

ERUNG" 

1350 LOCATE 1,2:PEN 2=:PRINT p$:LOCATE 5, 

3ZıPEN 3: PRINT"Giftpflanze:Beruehrung= —1 
Leben" 

13580 LOCATE 5,4:PRINT" (Level 1-4)" 

1370 LOCATE 1,72PEN isFRINT k$:LOCATE 4, 
7:PEN 3:3PRINT”Treffer=10 Punkte" 

: 1380 LOCATE 4,8: PRINT"Treffer auf der St 

artlinie=-50 Punkte" 

1390 LOCATE 4,9: PRINT" {Level 1-4) 

1409 LOCATE 1,10rPEN 1:PRINT CHR#$ (243) 

1410 LOCATE 1,11:3FEN 1:PRINT k£:L0OCATE 4 

„ilsPEN 3:PRINT”Treffer Sp.-Figur=-1 Leb 

en {Level 4)” 

14209 LOCATE 1,13>3PRINT CHR$ (241) sLOCATE 

4,13: PRINT"Guter Geist,Treffer= -50 P.,j 

eder" j 

1439 LOCATE 4, 14: PRINT"S. Treffer= -1 Leb 

en {Level 2-43" 

1440 LOCATE 1,1&5PRINT CHR$ (240} s LOCATE 

4,16: PRINT"Boeser Geist,Treffer= 10 Punk 

te,":LOCATE 4,173PRINT" jeder 5.Treffer= 

1 Banusleben {max." 

1450 LOCATE 4, IS: PRINT"), (Level D)”" 

1460 LÜCATE 4,213 PRINT"w 

1470 LOCATE 1,20: PRINT"Levelı score 350= 

Level 2,score 700=Level”=zLOCATE 1,21:PRI 

NT"S,score 1900=Level 4: Bankateben Max. 


4, 

1450 LOCATE 1,22:PRINT"Buperbonus score 
1500: GEWONNEN sc .2000" 

1490 LOCATE 14,25:PRINT"> LEERTASTE <” 
1500 wr#=INKEY$ 

1510 IF wr$=" ” THEN 1539 

1520 GOTO 1500 

1530 REM ##+# variablenbesetzung / ###%* 
1540 REM #### aufbau anzeige RER 
1550 CLG OsPAPER 0: BORDER 7 

1540 score=-0 

1570 level-i1 

1590 lives=5 

1570 1i=0 

1500 bo=0 

1610 WINDOW #1,532,40,1,25:PAPER #1,1:PEN 
#1,4:3CL5 #1 

1820 ENV 1,5,3,1,50,-50, 70 

1430 ENY 2,5, 2,1, 13,0, 16,5, 3,2 

1640 ENT 1,5,1,1,10,-1,1,10,1, 1,5, 71,1 
1450 RANDOMIZE TIME 


1640 LOCATE 33,5:PEN 1:PRINT" total ":LQ 
CATE 33,6: PRINT" "s3LDOCATE 33,6:PR 
INT total 


16870 LOCATE 33,10:PEN 1:PRINT" score "sl 
OCATE 33, 111PRINT" 
:PRINT score; 

1880 LOCATE 33,155PEN 1:PRINT" level "5: 
LOCATE 33,145 PRINT” 
&:PRINT levels 

1690 LOCATE 33,20; PEN 1:PRINT" lives ": 
OCATE 35,21:PRINT" "sLOCATE 35,213 
PRINT livesı 


Gompute mib 


"s3LOCATE 33,11 


"3s3LOCATE 35,8 


1700 REM *##=% bildaufbau RER 
1710 FOR n=1 TO 80 

1720 LOCATE RND#=29+1 ,RND#22+15PEN 3:PRIN 

T b# 

17390 NEXT n 

1740 LOCATE 3,21:PEN 1:5PRINT D$:LOCATE 6 
„21:PRINT d$: LOCATE' 8,21:PRINT d#:LOCATE 
12,21:PRINT d$:LGCATE 20,21:PRINT d$:LO 

CATE 25,21:PRINT d#:LOCATE 28,21:PRINT d 

$ 

1750 LOCATE 2,23:PRINT d$sl_OCATE 5,23:PR 
INT d$:LOCATE 10,23:PRINT d$:LOCATE 15,2 

3:sPRINT d$:LICATE 17,235:PRINT d$:LOCATE 

21,23:PRINT d$;LOCATE 26,253: PRINT d$:LOC 

ATE 29,23:PRINT ds 

1760 LOCATE 25,243 PRINT CHR$ (251) 

1770 JF=CHR$ (238) +CHR$ (2373 

1780 m$=CHRE$ (225) +CHR$ (226) +CHR# (225) +CH 


 R$ (226) +CHRS$ (225) +CHRS$ (226) +EHR$ (225) +CH 


R# (226) +CHR$ (225) +CHRS$ (226) +CHRS$ (225) +CH 
R#i226) 

1790 LOCGATE 8,1:PEN ?=PRINT m$:LOCATE 20 
‚„isPRINT msıLOCATE 5,2:PRINT m$:LOCATE 1 
9,2:PRINT m$:LOCATE 4,35:PRINT m$:LOCATE 


:20,33PRINT m$:LOCATE 1,4:PRINT TAB(1) CH 


R$ (225) TAB{2} CHRS (224) TAB(ZI m$ TAB(I 

7) m$ TAB(S1) CHR$ (225) 

1800 LOICATE 1,5:PEN 2:FRINT p$ 

1810 LOCATE 1,9:PRINT t$ 

1820 LOGCATE 1,22:PRINT p$ 

1830 1$=CHR# (181) +CHR$ (192) +CHR$ (185) 

1840 118=CHR$ (184) +CHR$ (185) +CHR$ (186) 

1850 111$=CHR$ (187) +CHRS$ (188) +CHR$ (189) 

1860 1111$=CHR$ (190) +CHRF# (191) +CHR$ (192) 

1870 LOCATE 28,6:PEN 23PRINT I%$ 

1880 LOCATE 28,7:2PRINT 11% 

19909 LOCATE 28,8:PRINT 111$ 

1900 LOCATE 28,9: PRINT 1111$ 

1710 LOCATE 29,13PRINT 1$ 

1920 LOCATE 29,14:PRINT 11% 

1930 LOCATE 29,15: PRINT 111% 

1740 LOCATE 29,16:PRINT 1111# 

1950 k$=CHR$ 1222) +CHR$ (225) 

1960 ası=4ı asy=ZTürbsx=7ıbsy=r20:csx=10:c5 
y=20: dsx=13:dsy=20: esx=16: esy=20: fsx= =19: 

u ezuuganezze guy =20shsx=25:hsy=20 


Schneiderfans! 


Aus Platzgründen müssen wir Cree- 
py leider in 2 Teilen abdrucken. Wir 
sind der Meinung, daß sich das 


Warten lohnt Wer es ganz eilig hat, 
kann das komplette Creepy auf Pro- 
grammkassette erhalten, wie alle 
unsere Softwareabonnenten auch. 

Tronic Verlag 
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' 


Bewerbung als Programmautor 


Vorname: 





Wohnort; 


Titel des Programmes: Computersystem: 


j | Erforderlicher Speicherplatz: KBytes 


MR. 
I Erforderliche Peripherle: 


y Ich versichere hiermit, daß ich der Autor des oben genannten Programmes bin und alle Rechte besitze. Ich bin damit einverstanden, daß Sie 

mein Programm in einer Zeitschrift abdrucken und/oder dieses verkaufen. Das einmalige Honorar beträgt 120 DM pro abgedruckter Seite, 

' Sollte das Programm nicht veröffenttichtwerden, bitte ich um Rücksendung meiner Unterlagen. Sollte mein Programm in.der Zwischenzeit 

} von anderer Seite erworben worden sein, werde Ich Sie unverzüglich benachrichtigen. Ich bestätige durch meine Unterschrift, daß ich 

" Kenntnis davon habe, daß der Tronic-Verlag gegen Personen, die Programme einschicken, deren Urheberrechte sie nicht besitzen, rechtli- 
che Schritte einleitet. 


I Unterschrift des Programmautors (bei Minderjährigen auch die eines Erziehungsberechtigten): 





- Folgende Unterlagen liegen diesem Schreiben bei: 


Diskette: Dokumentation: Listing: Rückporto: 


- Unterschrift des Programmauftors (bei Minderjährigen auch die eines Erziehungsberechtigten}: 
| j ä (Bitte zweimal unterschreiben!) 


Einsenden an: Tronic-Verfag Abt. Programmentwicklung, Am Stad, 3440 Eschwege 


% Kleinanzeigen % Kleinanzeigen % Kleinanzeigen 


Auftrag für Gelegenheitsanzeigen in „Compute mit... 


Name und Adresse 


An „Gompute mit ..* 
Tronic-Verlag 
Postfach 


3440 Eschwege 

Unter der Rubrik „Kieinanzeigen“- 
veröffentlichen wir Gelegenheits- 
anzeigen für Verkaufsangebote, 
Kauf- und Tauschgesuche, Kon- 
taktaufnahme bzw. Erfahrungs- 
austausch usw. 

Unser Preis für „Kleinanzeigen“: 
Private Kleinanzeigen 

bis 5Zeilen nur DM 5,- DM 
bis 10 Zeilen nur DM 10,- DM 


Jede gewerbliche Gelegenheits- 
anzeige 

bis 10 Zeilen ° nur 15,- DM 
(dürfen nicht unter Chiffre er-- 
scheinen) 

Eine Veröffentlichung erfolgt nur 
gegen Vorkasse! 


Kleinanzeigen jetzt 
noch preiswerter 


Unterschrift 


Ich wünsche folgenden Text zu veröffentlichen: 





Lalshepefelele fir 1-2je he | jeelis | hm 
ER URN IR SE] BER LE REIFE 2A a Be al 








suche © Hardware 
biete an O© Hardware 


suche © Software 
biete an O Software 


CSompube mib | 


Zutreffendes ankreuzen 
© Tausch O Versch. 


O Kontakte DO Chiffre 





kleinanzeigen 





% Kleinanzeigen » Kleinanzeigen % Kleinanzeigen % 





Biete Hardware 


® 50671 Bytes froe «bei Ihram 6-16. 
Erweiterung im Grundgerät (C-16) 
ohne Zusatzplatine, der Steckport 
bleibt frei. Im Grafikmodus steigt der 
Arbeitsspeicher von2Kauf4BK.Und 
das alles zusammen für nur 99,- DM 
incl. Umbau-+ 6 Monate Garantie! Tel. 
069/785164 werktags ab 17.00 Uhr. 


%* COMMODORE Hard- und Softwa» 
ro % Preisworte und schnelle Repa- 
, ratur von Hardware und Zubehör. In- 
> dividuelle Erstellung von Anwender- 
software (Kaufm. u. Technische) Info 
und Preislistegegen DM 3,00 von: Ar- 
nold Breuer - Soft- und Hardware - 
Industrieberatung, Zum Bruch 22, 
5160 Düren, Tel.: 02421/64373. 


c-16/116 Besitzer, Speicherwerwei- 
tarung 64 KByte (60871 Byte frae) für 
sae und schreibe 59,50 DM. Mit 
Bauanleitung undallen erf. Bautellen 
gegen Nachn. bei Martin Brügge- 
mann, Bachstr. 10, 5940 Lennestadt 
17, Tel.: 02721/82827 


Commodore * C-16/116 # C-16/116 
Speichererweiterung 64 KByte Bau- 
satz mit allen benötigten Bautellen + 
Schalter für 16 KByte - 64 KByste um- 
zuschalten und ausführlicher 
Bauanleitung für nur 49,50 DM 
(ink. MwSt. Porto u. Verpackung} per 
Nachnahme, Frank Schmitz, Kurzer 
Weg 1, 5206 Neunkirchen 2, Tel.: 
02247/8111 ab 18 Uhr : 


##A% Hardware C-16/116 AA 
% 64K Ram Erweiterung 139,-- # 
#* 16K Ram Erweiterung 79,-— # 
* Drucker&omrex CR220 349,-- # 
%* Staubschutz C-16 hart 14,90 Wr 
#* Staubschutz C-16 weich 10,-— #r 
* Staubschutz Datasette 7,90 * 
%* Lsercassetten C15,10St 16,90 # 
% Preise + Versandkosten * 
* Comp.Sewice, Postfach 1304 #& 
Auwh%r 7913Senden ka 


1% C-16 /C-116 RAM-ERWEITERUNG! 
C-16/116 60671 Bytes free für DM 
97,80 - Alle Ports frei — keine Ein- 
schränkungen - inc}, Umbau, Com- 
puter ohne Zubehör mit 100,- DM 
(2,20 DM für die Post} an: Elektronik- 
Technik, Tannenweg 9, D 2351 Trap- 
penkamp 


” 


C-16 mit Datesetio zu verkaufen. 3 
Monate alt mit Software. Hefte. Preis: 
160 DM. Anfragen unter: Tel. 08092/ 
22158. 


*#Yy DOLPHIN-DOS dA 
Floppyspseder für VCG-1541, Test In 
Zeitschrift 64er 5/86| 35xschnaller 
iaden, 10xschneller saven, vallda- 
ten, scratchen u.v.m. SpeedDos + 
kompatibel, doppelt so schnelll! 2 
Stk. kpl. zu verkaufen {nur auspro- 
biert), Je DM 130. @-Hotline 0251/ 
277300 — Wer zuerst kommt... 


Verkaufe VC 1515 Grafikdrucker für 
den C©-64 oder VG-20.DerDruckerist 
3 J. ait, aber nich in gutem Zustand. 
Die Papier-Breite ist 4, 5-8 inch (ca. 
203 mm}. Der Drucker kostet 160 DM 
(incl, Porto + Verp.) Schreibt mir 
wenn thrden Druckerhaben wollt: Arı 
Georg Wenk Jun., Waldhofweg 7, 
8240 Berchtesgaden. PS: Bitte mit 
Telefornummer! 


SUPERGELEGENHEIT ! I | Alles neu 
mit Garantie. C-16/C-164 mit 64 K 
Ram kpl. 198 DM; Plus 4 mit User- 
softw. kpl. 298 DM; Ram Erw. 64 K 
C-16/116 100 DM, Uwe Peters, Tan- 
nenweg 9, D-2351 Trappenkamp, @ 
04323/3991. 


ZU VERKAUFE N!" Schneider 
CPC-464, Grün + Farbm., Vortex 
Speichererweiterung {256 K) 2 Dis- 
kettenlaufwerke 3”. 2 Drucker {MLQ} 
+ SDM 100 Z/SE Software, MCLT/ 
PCAN, WORDSTAR, viele Spiele. VB 
2100,--. Tel.: 6081-3165 


Verkaufe VC-20 für 100 DM + Data- 
sette und Spielen, Zusam. 150 DM. 
28 2:5 25 2:0 2:5 2:2; 
Biete und suche gute Software für 
VG-64 auf Diskette 1541. 

Christian Doeres, Friedrichstr. 5b, 
5550 Bernkastel-Kues, Tel. 06531/ 
2247 


Neuwertig: CPG-464 mit Grünmoni- 
tor, Floppy, MP1, Light Pen, Jede 
Menge Software und Bücher zu ver- 
kaufen. NP über 2200 DM. Preis: 1400 
DM VHS, Berthold G. Kari-Silbema- 
geistr, 9, 6729 Bellheim. 





Verkaufe C-116 + Datasette +2 Joy+ 
9 Spiele - noch Garantie für 200,- 
DM. Bitte melden bei: Amd von Ger- 
meten, Triittweg 5, 3549 Volkmarsen- 
Herbsen, Tel.: 05693/7612 


war VO6L/CHEB Ah 
ir SGommodore 64: DM 488,-; New * 
#% Modem - 300 Baud für C-64/ * 
#% C-128 mit Software, anschluß- # 
# fertig: DM 139,-; Software zu & 
% Tlefstpreisen. * 
* Telefon 09209/7661 %* 
%#* HOLLSTEIN DATENTECHNIK * 
* Postfach 100509 * 
ku 8580 Bayreuth ee ed 


Verkaufe einen VC 1515 Grafik- 
Drucker für den Commodore 64/20, 
Die Papier-Breite beträgt 4, 5 - 8 
inch. (ca. 201 mm}. Der Drucker ko- 
stet200 DM. {Porto inkl.). Verkaufe in- 
put 64 Ausgaben (8/85 - 5/86) für je 
10 DM (Kassette). Suche Mitglieder 
für meinen (C-64-Club. Der Beitrag 
beträgt für das 1. Jahr 30 DM. Tel. 
08652/63045. 


Selkosha-GP 100-VC-Besitzer auf- 


"gepaßtl Endlich auch deutscher Zei- . 


chensatz! Auf Sekundäradresse 7. 
Nur EPROM austauschen! 30 DM. = 
0561/8986393. 


Biete Software 


Populär lisp. u. Prolog für 464/664/ 
6128.Man muß nurzu mitzwei Disket- 
ten senden und später manchmal 
Programm in diese Sprachen tau- 
schen. DM 15,- Für Post. An: ivalson 
Sereio, Computer Enginsering 
Dept, Middle East Technical Univer- 
sity (ODTU}, Ankara, Türkei. Tel. (An- 
kara) 1344 49. Bitte Luftpost Briefum- 
schlag (klein) benutzen. 


0. Es 


% ACHTUNG C-16/116 /PA USER! * 
% Jetzt gibt's was Neues: %* 
% PLAYBIT-SOFTWARE (1) Origt- * 
* nalprg.Ab5,-.Kelne Kopien!Li- # 
* ste: Bitte mit Porto: PLAYBIT- & 
# SOFTWARE, Trimbser Weg 26, & 
% 5440 Mayen 14 vhhkhhr 


C-64, VC-20, C-16/116, 4+, C-128 
Termin Fibu, EK/VK, Lotto, Biblo, Vi- 
deo-, Musik-, Foto- & Filmarchiv, 
Adress, Tabello, Digitalo, Spiel- und 
Denkprogramme, Gehimjogging, 
Mathe, KFz, YS!, Handbücher usw. je 
ab 9,90 DM. Katalog gegen BO Pf in 
Briefmarken: Computerservice T. 
Hofstede, A. d. Windmühle 8, 5010 
Bergheim 5 


#%% Diasortierprogramm Wh" 
für ©-64, C-128, CPC 464, 664, 6128. 
Es können bis zu 30000 Dias gespei- 
chert werden, Suchzeit kleiner als 1 
Sekunde, Info gegen Rückporto bei 
Dipl.-Ing. Walter Grotkasten, Birnen- 
weg 6, 7060 Schorndorf, Tel. 07181/ 
42846. 


Commodore Plus4 / C-16/64K) 
k##% Ghost kr Ghost ka 
k%% für 60671 Bylesfree Ah 
Ein Superspielfürnur20 DM. Infoge- 
gen Rückporto (80 Pf). Gebbie SoftP. 
v. Gemmeren, Kiefernweg 20, D-5900 
Siegen, 


% C-16/C-116/Plus 4 Software % 





%* Bandits at Zero 13,90 & 
% Winter Olympiade 22,90 # 
%* Pius Paket (4 Spiele) 90,-- #* 


% Favourite 4 (4 Spieie) 30,-- * 
* Superhits (4 Spiele) 30,-- * 
%* Software für and. Sys. auf Anfr. ® 
* Alle Preise zzgl. Versandkosten * 
% Tel. Bestellungen: 07307/6230 & 
% Comp, Service, Postf. 1304 # 
k#Aıu4% 7913Senden kku% 


C-16/116/+4 wegen Systemwech- 
sel löse ich meine ganze C-16 Soft- 
waresammlung auf! Über 80 (!) Origi- 
nale zum Tell die neuesten Titel aus 
England! Hektik, Commando, Kick- 
start). Katalog gegen frankierten 
Rückumschlag von: Softi Soft, Bank- 
kennagelweg 8, 4770 Soest. Auf alle 
Kaufpreise 30 % Rabatt. Tauche C-64 
Software. 


%#C-16/116/+4 Anwendersoftware # 


*Reinig. u. Justierset 20,--# 
*kJoystickadapter 98,90% 
* Turbo Tape 15,90% 
“Micro Datei/Text/Kalk je22,90% 
#Home Office 33,90% 
%* Graphik Designer 15,90% 


#Preise Stand 06/86 + Versand 
# Aktuelle Preise: 07307/6230% 
#Comp Service - Postfach 1304 % 
Aktkx 7913Sendn XrA% 


VC-20 Programme, Videospiele für 
Grundversion bis 16 K-Modul. Ange- 
botsliste gegen 8O Pf, frankierten 
Rückumschlag bei Horst Querfurt, 
Postfach 8430.42, 4320 Hattingen 14 


VC-20-Software zu Minipreisen I 1! 
Spiele, Tools und Anwendungsprogr. 
Liste gegen 0,80 DM in Briefmarken 
bei SF-Soft, Sven Faulhaber, Müh- 
lenweg 7, 3401 Seulingen. Program- 
mautoren für den C-64 gesucht!!! 





% Kleinanzeigen % Kleinanzeigen % Kleinanzeigen % 





| Sompute mi 













































Lee EN 
C-16, C-116 Superspiele! 4 a a 
Info gegen Rückporto bei Hannes 
‚Kaltenbach, Prielmayerstr. 16, 7990 
‚Friedrichshafen 1 


Ahr Ah A ha a 
* Analle C-16/116 u. VC-20 User. # 
* Wer sucht für seien Computer * 
‚#* Soft- oder Hardware. Tausch, # 
‚* Verkauf, evtl: Ankauf. Info ge- * 


f 
IE 


'%* bei: U, Kriewett, TROTmehens. © 
%* wall 71, 5000 Köln 1, Tel.: 

 %* 121634 pi 
222 222 2 222%; 


@® ® ® Deutsches Adventure @@® ® 
- ® Über 40 Verben. Über 50 Grafi- @ 
| ® ken. Über 40 Rüume und Orte!! ® 
Mitausführlicher Anleitung. Ge- ® 
gen Selbstkösten abzugeben. ® 


Weitere Infos bei: Alexander ® 
Leenen, Paul-Ehrlich-Str. 15,@ 
4152 Kempen 1. ® 


© =@02152/53534 ®®® 


00008® VC-20 000000 

Ich räume auf!! Programme ca. 100 

Stück. Spiele GV-16K+ Anwenderfür 

nur 50,- DM, 24 K-Erweiterung 85,- 

- DM (mit Reset-Schalter). Infos bei 

| Olav Geisser, Krebsgäßle 16, 7060 
4 Schomdort, Tel.: 07181/74987 


Schneider-CPC-Programme aus Ei- 
Ä genentwicklung zu zivilen Preisener- 
| N ‚halten Sie von Friedrich Neuper, 





Postfach 72, 8473 Pfreimd. Fordern 
N 4 - Sie einfach das kostenlose Gratisin- 
fo.an. Postkarte genügt. 





$o können Sie bestellen: 


beilepen. 





für Portn-Kosten erhoben. 


Gesant-Katalog an. 


Informnt innen Ilegen hereit Für: 






Schneider, Atnel,Stelnir MSN u.a. 


% genfrankierten Rückumschlag #: 








Ste können Ann Gel in har ter per 
Scheck Ihrer schriftlichen Bestellung 


Bei Nachnahme=Versand verden 4.00 DM 


Sollten Ste auch Internsne an unaeren 
anderen Pradlukten haben, #0 Cordern 
Ste gegen 1.50 DM Rückporto unseren 


COMMODORE 16/1 1H/Pins A/UC- 20/647 12R 


C-16/116/ plus 4 Diskmonitor V1.0 
Liest und schreibt 41 Spuren für 
Floppy 1541 und ganz neu auch für 
Floppy 1551 Diskette + Anleitung 
{Original) nur 39 DM. Info: Tel. 0251/ 
717100, Mo-Fr. 16-18,30 Uhr 


% TOP SPIELE FÜR C-16 % Spielepa- 
ket:Kobra- Moon-Fighter- Fantatrom 
« Gery- Poker- undairı Damespiel auf 
einer Cassette für nur 10 DM. Außer- 
dem tausche ich auch Spiele und 


'kaufe evtl. auch Spiele an. Jürgen 


Arms, Jugendheimsir. 1, 5550 Bemn- 
kastel-Kues. PS: Ich suche auch Ka- 
ratespiele für C-16. 


++++ C-16 Software 444% 


% Mr. Puniverse 8.30DM + 
+ Rockman 9,90 DM + 
+ Skumpies Attack 9,90 DM + 
% Big Mac 9890DM + 


„upitersoft GdbR, Frühlingsstr. 12, 
8831 Weiboldshausen. Info kostenl. 
Eilige Bestellung, Tel. 09141/2249. 
Tel. von 18.00 bis 20.00 OFFENIH 


FLIGHT SIMULATOR II 
JET SIMULATOR 
THE PRINT SHOP 
THE NEWS ROOM 
Jede Disk nur50 DM 
Geld an: Thomas Mouzakith, Tsama- 
day 4, Athina-Greece 


Ah% C-16, C-64 Software vr 
Verkaufe Super-Spiele zu kleinen 
Preisen! Infos gegen 80 Pf bei: D. Ol- 


bertz, Bergstraße 26, 4130 Moers 1. 


S Es 
De 


Kassette Dirkette Kassetkn 
Bigglan 39.95 UM I ATE 32.00 UM 
Bomb Jark 293.95 0M 44,96 IM Bandita nt Zero 34.95 04 
6.0.8.£. 34.95 DM [4 Rench Ilend 21,96 DM 
Cnuntriown tin Metkdaun 414.95 M ’ Berka Triniaay (3 Spirte} 29.50 [if 
Des Herz von Afrika { 69.000 Commanrie 26.95 04 
Foirlight 34.9504 43.95 04 fire Ant 21.95 UM 
Five-a-side-Soconr 11.95 04 f Jet Sat Willy 29.00 04 
Golf Construction Set 48.95 DM nA.y5 MM Kante Death Klinse 414.95 Im 
Green Bernt 32.95 DM 4 Hanke Miner 24.95 DM 
laro of thn Golden Teltanm 14.95 IM I Petch 19.95 1m 
Haxenküchn IL 29.95 DM 1 Seramhle 19.95 mM 
Ice Palnen 14.95 IM U Spnen Enenrt 71,95 IM 
MAnstat of Magie 14,95 04 I Space Dilnt 19.95 08 
Samantha Fox Stsin Poker 34.05 04 49.95 0M Spiderman (Fnglischt) 141.95 ON 
$Sauthnrn Belle 24.95 DM / Senrd of Destiny 29.95 0N 
Spetltnund 314.95 0M 1 Ihn Hulk tEnaliachty 34.35 04 
Snindizry _ 38.95 DH 5R.AS NH Torpedo Mm 19.35 m 
Superb 74.95 DM U Hinter Mlympica 29.00 04 
Ihe Inst vo 19.95 DM 4 Worid Cop (Fußhalt) 25.00 m 
Ihe way of the tiger 32.9504 43.95 IM 
Ihe Munir Stun (Achivinten) 938.95 DM 59.95 mi Siper-iien {6 Spiele} r23.95 DM 
Tubular Bella 29.95 DM / Tavaurite A {A Spiele) 32.00 IM 
War Play 29.05 MM AA.9e nM KIREEIEN . a - = Ks 

aenice Spiele 32. 

Game Killer (PA } 87,95 _M Henvy-Hite (6 Spiele} 13,35 m 


ni 


CoNNODORE L4 / 128 


u — u 


kleinanzeigen 


VC-20 %# VC-20 vr EEE 
Spitzenspiele z. B. Actiongames, auf 
Tastatur oder Joystick. Liste gegen 
60 Pi Rückporto! Verkaufe Quick Gün 
Turbo 8 Joystick (mit Microschalter} 
für 20,00 DM! Außerdem verkaufe G- 
64 Spiel Domino 6 + Domino $ bei- 
des auf Kassette nur 14,00 DMI (incl. 
Kassette).‚Nur Kassettenlieferung 
möglich! Top Games ab 4DM (+ 4DM 
für Kassette). Bei: Bernd Sprenker, 
Elsa-Brandströmstr. 4, 3452 Boden- 
werder. 


* C-16/116 # Grafikprogramme-Mi- 
ni-CAD, sichern, laden und weiter- 
bearb. d. Grafiken; Info gegen Porto: 
M. Rätzel, Ulvenbergstr. 6, D-6100 
Darmstadt. 


Schneider-CPC-Programme aus Ei- 
genentwicklung zu günstigen Prei- 
sen erhalten Sie bei Friedrich Neu- 
per, 9473 Pfreimd, Postfach 72, For- 
dern Sie das kostenlose Infomaterial 
an. 





% C-16 & # & Graphic-Adventure %* 
% „Die Jünger des Todeslichtes" * 
% 48 verschiedene Bilder (I!!!) 14 * 
#* Sequenzen— zum Preisvonnur # 
* 20,-- DM-Sestellen bei— Jörg #* 
%* Kowaiski, Blickernstr. 161, 4650 # 
% Gelsenkirchen, oderinfogegen #* 
% Hückporto. Aria 


Oh, Schreck! Wir vergassen zu sagen: 
Die Sommerhits sind dat -&- 






Post fach 420/Nlücherstr, 
4290 Bochott 


aA 





Telefon Ne. (02871) 1983088 


Compube mi 


COMMODORE 1&b/11h/PLUS 4 

















C-16 Grafikprogr. C-64+SB. 
Grafikdemos für C-16 und C-64 
mit Simons’ Basic: Ausführl.Be- 
fehlserklärungen u. viele An- 
wendungesbeispiele! Faden- 
gratiken, Rechteckiterationen, 
u. v. a.! Spezialkreatlonen auf 
Anirage (a. 8296). Großes Info- 
Paketgegen Rückporto. Into mit 
Cassette: 3,80 DM. B. Jakob, 
Kehl 4, 8832 \Weissenburg. 


#* CPG Software zu Top-Preisen # 
% NEU Hanse 35,90 DM * 
#* NEU YiearKung Fu 28,90 DM # 


#* NEU Hacker 36.90 DM # 
#* NEU Turbo Esprit 88,90 DM # 
% NEU Saboteur 38,90 DM %* 


%* Gratisprogramm (Risiko, 20 K) # 
%* für 4,50 DM für Porto & Verp. bei # - 
%* M+K Software, Meisenweg 7, * 
%* 7440 Nürtingen-Zizish. Tel.: # 
# 07022/33245. %* 


c-84, C-t6/116, +4, VC-20, C-128 
Text, Adress, Kartei, Spielepakete, 
Tabello, Termin, Lager, Kunden, EK- 
VK, Fibu, Denktraining, Lotto, Foto-, 
Film-, Video-, Musikarchiv, Digital 
YSI, KFZ, Biblo, Mathe ab 9,90 DM. 
Katalog gegen 80 Pf-Marke. 
Computerservice T. Hofstede, A: d. 
Windmühle 8, 5010 Berghelm 5. 


C-16/C-116 Superspiele! BB 
Info gegen Rückporto bei Hannes 
Kaltenbach, Prielmayerstr. 16, 7990 
Friedrichshafen 1. 



























SOFTWARE - 
VERSAND 
BACHLER 













kleinanzeigen 








% Kleinanzeigen % Kleinanzeigen % Kleinanzeigen % 





CPC-454: Verkaufe FootballManager 
© 20. - Backgammon 6 B. — World 
Cup © 25. - Bücher: GPC 464 Basic- 
programme 25. - CPC Tips u. Tricks 
25,-:Zuschr. an B. Peyerl, Sandstr. 5, 
8300 Landshut. Suche auch: Explo- 
ding Fist GC; Socery ©. Auch Pro- 
grammtausch mgl. 


Suche Software zum Tauschen. Ha- 
be z.B, Super Tape zum Laden und 


Saven 30xschneller Karteiprg. Liste‘ 


bitte an Axel Waszynski, Erfurter-Str. 
33a, 2351 Trappenkamp. 


Suche gebr. gut erhaltenen C-64 mit 
Datasstte. Angebote an Thomas Tau- 
ber, # % # Tel.: 06087/7684 kA" 


SUCHE für C-16 
Software (Cass.) evtl. Tausch, 
Floppy gebrauchtbis 250,- DM, 
Druckergebr,. bis 200,- DM, 
oder defekte Geräte f. 100,- DM, 
Verk. 5 Originalcass.: Skyhawk, 
Gnasher, Mailtrail, Wizzard & Pr. 
Twin Kingdom V, kompl. 38,- 
DM. Angebote an: A, Günther, 
Eduard-Flach-St. 9, 8940 
Memmingen. 


Suche für C-16 mit 64K Statistik-, 
Def./Vokabel-, Textverarbeitungs- 
und Grafikpgm. Außerdem gebr. 
Drucker + Floppy 1541. M. Potthast, 
Agnesstr. 8, D-2000 Hamburg 60, 


Suche Software für VC-20. Bitte mel- 
de Dich bei: Andreas Harimann, 
Obere Kaiserstr. 68, 6670 Rohrbach- 
Saar. 


Suche für den Commodore Plus 3/ 
©-16 einenBDRUCKER Miete dafür 
bis zu 250 DM. 





























Angebot an 

k% Gerhard Lackner ar 
kr Höllberg 25 vr 
ar 8151 Hitzendorf ar 
Kar Österreich ar 





C-16 Fioppy 1541 und MPS 801 ge- 
sucht. Angebote auch über Software 
an Hans Quick, Postfach 579, 4390 
Gladbeck. 


NEU } } Einsteiger sucht Soft- und 
Hardware und Kontakte. Habe Com- 
modore C-16. Bin Dankbar über 
schnelle Antwort. Schreibt an Peter 
Picard, Bliedingbauserstr. 34, 5630 
Remscheid. 








% Kleinanzeigen % Kleinanzeigen » Kleinanzeigen % 
a — 


* 








EHHBENE SUCHE! HBmME 
Alles über C-16 (Listings, Tips & 
Tricks, Prg. aller Art, Bücher ...) Be- 
sonders: ©-16 in d. Praxis, Infos über 
Shape- u.’ Assemblerprogrammie- 
rung. Listen und Angebote an: Stef- 
fen Gebhardt, zwischen den Bächen 
47,. 6990 Bad Mergentheim, Tel. 
07931741601. 

BuW ZAHLE SEHR GUT! Bm 


Ich möchte.den VC-20 für 120 DM 
verkaufen. Telefon: 06332/15372. 


Suche gehr. gut erhaltenen C-64 mit 
Datasette. Angebote an: Thomas 
Tauber # # Tel.: 06087/6844 A% 





Glub- 


Nachrichten 





Zwei CPC 464 User aus Rheinberg 
suchen Kontakt zu CPC-Clubs oder 
einzelnen CPC-Besitzern im Raum 
Niederrhein zwecks Erfahrungs-und 
Programmaustausch. Bitte melden 
bei: Michael Leder, Span, Schanzen 
15, 4134 Rheinberg 4, @ 02843/ 
3143. Stefan Basfeld, Dresdener Str. 
6, 4184 Rheinberg 4, Tel: 028437 
3838 


SCHNEIDER COMPUTERCLUB 

Der SY.A.C.-Computerclub hat nach 
Plätze frei und sucht weiter nach Mit- 
gliedern. Es erscheint monatlich ei- 
ne Zeitschrift mit vielen Tips und 
Tricks, Listings und Informationen. 
Weiter Informationen brieflich oder 
telefonisch (ab 18 Uhr). Wir freuen 
uns überjede Antwort. SY.A.C.-Com- 
puterclub, bei Machner, Färberstr. 
20, 8410 Erkheim, Te}.: 08336/7105 








Verschiedenes 





rk 
Wer programmiert mir den plus 4 mit 
Floppy 1551 als RAM-Fioppy und Da- 
tenknecht vom Expansionpart auf 
den Userport des C-64? Zahle bis 
200,- DM. 20561/772408. 

Ei 5 2 5 2 2 5.2.2.0, 





C-16/116/+4 ROM-Listing (Sach- 


buch Nr. 6) in deutsch. Vorkasse. 


29,80 DM, NN plus 3,20 DM. Wade- 
pohl, Saarbrücker Str. 30, 4670 Lü- 
nen, Tel. 02306/48949. 


TAUSCH-BIETE C-16/116-Software 
ca. 70 Spiele u. Anwenderprog. Info 
gegen -,80 DM Rückporto bei H..J. 
Bartsch, Friesenstr. 1, 4402 Greven 1 


Verkaufe Märklin Mini-Club Eisen- 
bahn. An der Eisenbahn müssen kl. 
Reparaturarbeiten durchgeführt 
werden. Die Eisenbahn soll 200 DM 
kosten. (Mit Signalen, Trafo, vielen 
Gleisen usw.) Verkaufe MOBO Teie- 
spiel mit 3 Spielkassetten für 150 DM 
(Ballspiele, Autorennen, Flipper). 
Verkaufe Input 64 für 10 DM. Tel. 
08652/63045; Georg Wenk 


# # SUPERGELEGENHEIT # dr C-I6 
mit 64 K-Ram 198 DM. Plus4 mit User- 
softw. 298 DM. Ram-Erw. ©-16/116 
100 DM mit Umbau Uwe Peters, Tan- 
nenweg 9, 2351 Trappenkamp. 


% 


THIEIHISCHWLULIE 





%*k% HALLO C-16-BESITZER «% 
Ich tippe Ihre Programmefür 2 Pf pro 
Zeile ab. Bitte schicken Sie.mit: Kas- 
sette, Listing und Rückporto. An Det- 
lef Kleinfelder, Schluchseestr. 52, 
7730 Schwenningen, Tel. 07720/ 
13 67. Bei Nachnahme: 2DM. Bei Vor- 
kasse keine Unkosten. 





EEE EEE u u zn zz; 
Kaufe und Tausche Spiele aller # 
Art auf Kassette für den C-64 # 
und C-116, 

Ab 17.00 Uhr 

Klaus Plonner jun. 
Tel.:05962/2225 

4471 Dohren 
Herzlaskerstraße 10 
Akku 


a2 2 2 2 2 2 2 2; 
Le 2 2 2 2 2; 





Suche C-i6 Programmierer für Er- 
fahrungsaustausch. H. Schwark, 
4300 Essen 1, Hangetal 99, Tel.0201- 
297699 


% 


Ihe Game 


Supersportspiel für den C-64! 


Reversi 


Ein spielstarkes Strategiespiel 
für den C-16/116 


Moon Patrol 


endlich auch für den VC-20 


.„..und vieles mehr! 


Sompufe ie 
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GÜDer neue Philips MSX 2. 
Damit man bei der Arbeit 
den Spaß nicht verliert. 


er neue Philips MSX2 ist ein Computer, der durchaus 
auch den lustigen Seiten des Lebens gerecht wird. Neben 
seinen täglichen Pflichten wie Textverarbeitung, Adres- 
sen-/Datenverarbeitung und dem Bearbeiten von Sta- 
tistiken, Bilanzen etc. reizt z.B. ein hochentwickeltes Grafikpro- 
gramm dazu, auch malden Künstler in Ihnen zuwecken. Und seine 
vielen Spiel- und Lernprogramme sind allemal abendfüllend. 
Aber dieser Philips MSX2 mit dem eingebauten Disketten- 
laufwerk ist außerdem Herzstück der Philips Neue Medien 
Systeme, dem Zusammenschluß von Computer und Elementen 
aus den Bereichen der Telekommunikation undder Unterhaltungs- 
elektronik. Übrigens - mit Philips MSX 2 verstehen Sie sich, ohne 
erstdas „Computern“ erlernen zumüssen: Sienutzen einfach seine 
Funktionen. Mehr darüber von Philips GmbH, Geschäftsbereich 
Neue Medien, Postfach 101420, 2000 Hamburg 1. 


Philips paßt 


in unsere Zukunft PH l LI DS 





Mi) Audası 


VORSTELLUNGEN 


Fa 
in) 


® 100 Seiten Programme im Test 

® der Software-Markt auf einen Blick 

U ESTER TELEFON ELDLESEIESEHETTENGN 
®  groNer Kleinanzeigenmarkt 


— alle Anwender von Heimcompulern 


EN N x 
Tronlc-Vertao GmbH - Am Stad 35 3440 Eschwage \ 





